

issxu \7 ,r 7 

WT.-.T-. it... i £ !- . ; , 


-1 / 


W ; - ■ ■•^r '^V' fj • •• .' , , v .*- .. : ,. , 

. .r>^. • ' r - v(v. y T 1 '"• •. T-, .» - ■■= -■ x. .•• • ~v "V^s^ t ^ V ■ -V-' , -* r ■ •' '• .^'V* \\r 

SSfA -v.r- >* %■. ^ < - :i - r . Vt Z^-'yy^ — Vfc 

p-'; ■ '- '- , • - ■- '• -"■•;■ . -w v _ * <■ ^ » )r ^ ' ' >y ~v_ r ,"^ ^ ^ / 





? A, 


'i - Vp-iv- * '-' ^ 

K ^> 'L " / ^ ' ■ i 


pSk*:*^* u; • ,i.‘ 


K/ 


I 





**. s '. ^ <•• •* * ' sj ; . '*f. r„ y - ->■■■ zA'i^sy .'’ >tVA ,V^ ?' ; * »■ "- 

-Jr Ut'.. - ! ' ^ '. -i- „_.v ; ■ < . . . ■' \ ■' : V> •'* S- y 




- ul-A .5 <*'< ".;, f 

; >. T . >■: -V. , tv 




GPO PRICE $ 
CFSTI PRICE(S) $. 


ff 853 July 65 



ev ■■ .r."A 

BATTERY PERFORMANCE DATA 


\. ■- r~ ^ 
' /- t-\ S ' 


Ha- -copy (HCI / Xy*' 

Microfiche (MF) 


BY 


G. HALPERT 

v - 

A 6 ? 13164 

* (ACCESSIOM NIIMritqi — — 

- 


(thrui 

y 

(PAGES) 




GODDARD SPACE FLIGHT CENTER 

• GREENBELT, MARYLAND 


(fprsi'i" 1 


w 


yi 


COMPUTER PROGRAM 


FOR 

ANALYZING BATTERY PERFORMANCE DATA 

by 

G. Halpert 

Goddard Space Flight Center 
Greenbelt, Maryland 



CONTENTS 


Page 

ABSTRACT ~ 

INTRODUCTION x 

INPUT DATA AND FORMAT REQUIRED 2 

Outcard Format 2 

Endcard Format 2 

CARD TO TAPE CONVERSION 6 

Outcard Raw Data Tape Format 6 

Endcard Raw Data Tape Format 8 

SYSTEM OF BATTERY ANALYSIS PROGRAMS 8 

Data Retrieve — Formatter Routine 10 

Pseudo Generator Routine 19 

Data List Routine 26 

Statistical Analysis Routine 27 

Printed Plot Routine 34 

ACKNOWLEDGEMENTS 44 

BIBLIOGRAPHY 45 

APPENDIX A — Card to Tape Editing Programs 

APPENDIX B — Flow Charts and Source Statements for card to Tape Editing Program . . . 

APPENDIX C — Flow Charts and Source Statements for Battery Analysis Program 



COMPUTER PROGRAM 


FOR 

ANALYZING BATTERY PERFORMANCE DATA 


by 

G. Halpert 

Goddard Space Flight Center 
Greenbelt, Maryland 

ABSTRACT 



A system of computer programs (routines) for processing and analyz- 
ing battery and other time-dependent data is presented. The first sections 
describe the format of the data on punched cards and the mechanism for 
converting the cards to magnetic storage tape. The third and major sec- 
tion describes the individual analysis routines, instructions to the analyst 
and computer operator on their use, and the type of output from each. 
These routines include a means for reducing data, performing mathematical 
operations, listing, plotting in graphical form, and statistically analyzing 
the data. Programmers information is found in the Appendices. 




COMPUTER PROGRAM 


FOR 

ANALYZING BATTERY PERFORMANCE DATA 


by 


G. Halpert 

Goddard Space Flight Center 


INTRODUCTION 


A System of Battery Analysis Programs (SBAP) has performed satisfactorily in the processing 
and the analyzing of battery performance data. This report which describes the programs was 
specifically written so that the battery engineer or analyst with little or no knowledge in computer 
operations can put the system into practical use. 

The need for the SBAP became evident when evaluating the test results of the nickel-cadmium 
battery research project (NAS-5-3027) initiated by GSFC in 1963. In this project twelve 10-cell 
nickel cadmium batteries were tested for prolonged periods in related but different types of oper- 
ations. Performance characteristics such as current, cell voltages and average power were 
measured during the charge and discharge phases. Because of the complexity of the test, an IBM 
1710 computer was used to control the operations and record the measurements. To reduce the 
volume of data, measurements made during the charge and discharge phases were recorded only 
when certain parameters were exceeded. Measurements representing compiled data were recorded 
at the end of every phase. 

The mathematical and statistical data evaluation using the SBAP assists in the determination 
of relationships between battery operation and battery life, which is the primary objectives of the 
Battery Research Project. In writing the SBAP, an effort was made to make it flexible enough to 
be used by anyone with battery data or for any data of a similar time -dependent nature. 

The first part of this report describes the arrangement (format) of the battery test data on 
the punched cards. The information provided in this section should be considered by the battery 
engineer before designing a battery test if he intends to utilize a computer program for subsequent 
analysis of the resulting data. The second part describes the SBAP, the five routines comprising 
it, what the functions of the routines are, how they are used, and what instructions should be given 
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to the computer operator in order to process them. Appendix A supplies information needed to 
transfer raw data from cards to magnetic tapes. Appendices B and C contain programming in- 
formation such as source statements and flow charts for all routines mentioned. 

The programs were written for the IBM 7094 computer system at GSFC and are usable with 
other computers containing a comparable storage capacity, and the ability to utilize FORTRAN II 
language. The computer time required for each processing depends on the routines used, the 
quantity of data extracted from the raw data tapes, and the operations to be performed. The 
average time for each routine is given under operator instructions. 


INPUT DATA AND FORMAT REQUIRED 


In order to analyze battery performance or similar types of time -dependent data, the data 
must be punched onto cards in a specific order (format) so the computer can process and store 
the data on magnetic storage tape. In the process, the data is sorted, edited, and brought up to 
date. The raw data on tape in binary form are then ready to be used as input data to the SBAP. 

There are two types of data available from a performance test: outcard data, obtained during 
the charge and discharge phase, and endcard data, taken at the end of the phase and representing 
a compilation of the data. A separate tape is required for each type. Depending on the analyst's 
request an endcard raw data tape, an outcard raw data tape, or a combination of the two is supplied 
as input to the battery analysis program. 


Outcard Format 

An outcard is divided into 21 groups, and each represents a specific measurement. The name 
of the group, the number of digits allowed, the location of the decimal point, and a sample and its 
meaning are given in Figure 1. An important consideration for those who are designing a test 
is to decide which information should be included. Any outcard type measurement can be punched 
into the card in a space allotted for a group with an asterisk, provided that the number of digits 
and the position of the decimal point are the same as in the group it replaced. For example, if 
ten temperature measurements are made on one cell using thermocouples, the millivolt values 
can be punched into the spaces reserved for VO to V9. 

Endcard Format 

Examples of endcards are given in Figures 2 and 3. Two endcards are provided to accom- 
modate additional data. Included are the group names, the number of digits allowed, the location 
of the decimal point, and the sample and its meaning. As with outcards, any measurements of 
endcard data can be punched into the spaces reserved for the asterisked groups. The number of 
digits and decimal point restrictions must be taken into account. 
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Battery Number 



No. 

Groups 

Digit and decimal 
des ignation 

Sample 

Units or 
meaning 

1 

Battery No. 

XX 

01 

Battery 1 

2 

Cycle No. 

xxxx 

2765 

Cycle 2765 

3 

Year 

X 

6 

1966 

4 

Day 

XXX 

365 

Dec. 31 

5 

Time 

XX. xxxx 


Hours 

6 

Delta Elapsed Time 

x.xxxx 


Hours 

7 

Avg. Instantaneous power 

XX. XXX 


Watts 

8 

Phase 

X 

0 

Charge 

9 

Current* 

XX. XXX 


Amperes 

10 

Pressure* 

XX. XX 


Millivolts 

11 

Voltage of cell 0* 

x.xxx 


Volts 

12 

Voltage of cell 1 * 

x.xxx 


Volts 

13 

Voltage of cell 2* 

x.xxx 


Volts 

14 

Voltage of cell 3* 

x.xxx 


Volts 

15 

Voltage of cel 1 4* 

x.xxx 


Volts 

16 

Voltage of cell 5* 

x.xxx 


Volts 

17 

Voltage of cel 1 6* 

x.xxx 


Volts 

18 

Voltage of cel 1 7* 

x.xxx 


Volts 

19 

Voltage of cell 8* 

x.xxx 


Volts 

20 

Voltage of cell 9* 

x.xxx 


Volts 

21 

Sequence No. 

xxxx 

0032 

32nd Card. 

Note 1: 

Each of the groups labeled with an asterisk can be replaced by another group if the new data has the same number 
of digits and the same decimal point location. The new group must also be an outcard data group (described in text). 

Note 2: 

The sequence numbers for outcards must start with “0000 or 3000. 
numbers to assure that outcard data is put on an outcard data tape. 

The card to tape editing 

program checks these 


Figure 1 —Format of Outcarcs 
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ENDCARD NO. 1 

Groups 

Digit and decimal 
designation 

Samp le 

Units or 
Meaning 

Battery No. 

XX 

01 

Battery 1 

Cycle No. 

XXXX 

2765 

Cycle 2765 

Year 

X 

6 

1966 

Date 

XXX 

365 

Dec. 31 

Time duration 

xx.xxxx 


Hours 

Ampere minutes* 

xxx.xxx 


Amp. minutes 

Watt minutes* 

xxx.xxx 


Watt minutes 

Efficiency (Energy)* 

XX. x 



Ampere hours* 

XX.XXX 


Amp hours 

Watt hours* 

xx.xxx 


Watt hours 

Average current* 

xx.xxx 


Amperes 

Minimum current* 

xx.xxx 


Amperes 

Maximum current* 

xx.xxx 


Amperes 

Average power* 

xx.xxx 


Watts 

Minimum power* 

xx.xxx 


Watts 

Maximum power* 

xx.xxx 


Watts 

Efficiency (Current)* 

xx.x 


Amperes 

Endcard No. 

X 

1 

Endcard 1 

Phase 

X 

1 

Discharge 

Sequence No. 

XXXX 

6004 

9th card 

Note 1: Each of the groups designated with an asterisk can be replaced by another group if the new data has the 

same number of digits and same decimal point 'ocation. The new group must be endcard data. 

Note 2: The sequence numbers for endcards must start with *6000* or 

checks these numbers to assure that the endr.ard data is put on 

8000." The card to tape editing program 
an endcard data tape. 


Figure 2— Frrmat of endcard 1 
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Battery Number 



ENDCARD NO. 2 



Digit and decimal 


Unit or 

Group 

designation 

Sample 

Meaning 

Battery No. 

XX 

05 

Battery 5 

Cycle No. 

xxxx 

2765 

Cycle 2765 

Year 

X 

6 

1966 

Date 

XXX 

365 

Dec. 31 

E/I ratio--] coefficient* 

X.XXX 


Coef. Resistance 

1 average 




Cycle count cell #0* 

xxxx. 



Cycle count cel 1 #1* 

xxxx. 



Cycle count cell #2* 

xxxx. 



Cycle count cell # 3* 

xxxx. 



Cycle count cell #4* 

xxxx. 



Cycle count cell #5* 

xxxx. 



Cycle count cell #6* 

xxxx. 



Cycle count cell #7* 

xxxx. 



Cycle count cell #8* 

xxxx. 



Cycle count cell #9* 

xxxx. 



Maximum variance 

XX. XXX 



Cell activity 

XXXXXXXXXX 


All cells 

Real time phase completion* 

XX.XXX 

1322 

Hours 

Endcard No. 

X 

2 

Endcard 2 

Phase 

X 

0 

Charge 

Sequence No. 

XXXX 

8004 

4th Card 

Note 1: Each of the groups labeled with an 

asterisk can be re 

placed by another group if the new 

data has the same 

number of digits and the same decimal point location. 



Note 2: The sequence numbers for endcard 

s must start with a 

*6000* or “8000." The card to tape editing program 

checks these numbers to assure that the endcard data 

is put on an endcard data tape. 



Figure 3— Format of endcard 2 
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CARD TO TAPE CONVERSION 


In order to use the data on outcards and/or endcards in the SBAP, it must be stored on mag- 
netic storage tape in a binary form. This is done by processing the outcards and endcards sepa- 
rately, using a set of card-to-tape editing routines. The routines are listed in Tables 1 and 2. 


Table 1 

Card to tape editing program for outcards. 


HI 

Card to tape - rough routine 


Sort routine 

D 

Alpha check routine 

D-l 

Preliminary analysis 

E-l 

Delete and duplicator elimination routine 

F-l 

BCD to binary routine 

G-l 

Binary merge routine 


Table 2 

Card to tape editing program for endcards. 


A-2 

Card to tape - rough routine 

(Endcard 1 and endcard 2 separately) 

B-2 

Sort routine 

(Endcard 1 and 2 separately) 

C-2 

Alpha check routine 

(Endcards 1 and 2 separately) 

D-2 

Preliminary analysis routine 
(Endcard 1 only) 

E-2 

Delete and duplication elimination routine 
(Endcard 1 only) 

F-2 

BCD to binary routine 

(Endcard 1 and 2 separately) 

G-2 

Binary merge routine 

(Endcard 1 and 2 together) 


The objective of these routines is to transfer the data to magnetic tape, sort it, arrange it in 
the proper sequence, test it for validity, code the invalid or incomplete data, and merge the data 
in binary form with existing data. The routines, instructions, flow charts, and source deck state- 
ments appear in appendix A. 
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Outcard Raw Data Tape Format 


When the conversion from outcards to an outcard raw-data tape is completed, the tape will con- 
tain the same information as the cards but in a slightly different arrangement of groups and in a 
particular sequence as illustrated in Figure 4. 




Figure 4— Outcard data tape format 

The tape at the top of the page shows the data arranged in sequence by battery. Thus, all data 
pertinent to the first battery (battery 00) is recorded first on the tape, all data pertinent to the 
second battery (battery 01) is recorded next, and etc. Data recorded for each battery are divided 
into cycles; each cycle is subdivided into a charge or discharge phase. The data from each phase 
are subdivided into approximately 25 data groups. Groups 11 to 25 (designated fields 1 to 15) are 
abstracted from the outcard raw-data tape at the request of the analyst and used in the analysis. 

Groups 1-10 are only checked as the computer processes the data and are never abstracted 
from the tape. 
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Endcard Raw Data Tape Format 


The endcard data is arranged on the endcard raw-data tape by battery, by cycle, and by phase, 
respectively (Figure 5). 



Figure 5— Endcard data tape format 

The data from endcard 1 and endcard 2 were merged to form one large endcard on the tape. 

There are 36 groups on this endcard, and each group contains one item of information. As in the 
case of outcards, the first 10 groups are checked by the program while the computer is processing 
the data but never retrieved. The rest of the groups (11-36) are designated fields 1 to 26. These 
fields are specified by the analyst when requesting data to be abstracted from the raw-data tapes 
and are used in the analysis. 

SYSTEM OF BATTERY ANALYSIS PROGRAMS (SBAP) 

The SBAP consists of five programs which are used to process raw data input and to print- 
out desired information in a suitable form. The overall program sequence is illustrated in 
Figure 6. 

As pointed out in the first part of this volume, raw data input consists of outcard and endcard 
data tapes which contain encoded measurements made during battery charge and discharge cycles. 
Outcard data are obtained during a charge or discharge phase, endcard data are taken at the end 
of each charge and discharge phase. 
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STATISTICAL ANALYSIS 
ROUTINE DECK 



‘MOUNT PSEUDO DATA INPUT TAPE AT B-9 FOR LIST ROUTINE ONLY. 


Figure 6— Battery analysis program functional flow diagram 

The five routines are: 

1. A Retrieve- Formatter Routine to extract specified data from the endcard and outcard data 
tapes, and to record it in a more suitable form on a retrieved- data tape. 

2. A Pseudo Generator Routine for mathematical operations on the retrieved-formatted data 
which records the results on a pseudo-data tape. 

3. A Data List Routine to obtain a listing (printout) of the data as it appears on the retrieve 
Or pseudo tape. 

4. A Statistical Analysis Routine for the data using such results as mean, variance, standard 
deviation, linear correlation, and multiple stepwise linear regression. 

5. A Printed Plot Routine which presents data in graphical form. 

In order to process a routine, a tape containing the data and the routine card deck must be 
supplied. The decks are complete except for control cards which must be added by the program 
user. The control cards determine the results obtained by specifying the type of data to be 
abstracted, and the statistical and mathematical operations to be performed. 
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Recorded data which might be incomplete because the cycle was cut short or might contain 
errors but are still usable can be requested and will be coded with a flag word describing what the 
problem is. However, it will not be supplied unless specifically requested. 

The time required for a run of one routine depends on the amount of data requested and the 
operations to be performed. The average request for one routine is 2 minutes. 


Data Retrieve- Formatter Routine 

The retrieve-formatter routine whose functional diagram appears in Figure 7 is the first step 
in the analysis. The purpose is to select specific data fields from endear d or outcard raw data 
tapes and record this data on a retrieved data tape. The format of the retrieved data will be suit- 
able for processing in the other routines of the program. An off-line history tape is simultaneously 
prepared which can be listed — to ascertain error or data loss. 



* 


Figure 7— Retrieve formatter routine functional flow diagram 
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An endcard raw data tape is the only input tape required as an input when the endcard data is 
desired in the analysis. If outcard data is desired, both tapes are required because the outcard 
data on a particular phase (charge or discharge) is referenced to the total number of ampere 
hours (field 9) and the total time duration (field 5) of that phase appearing on the endcard data 
tape. If total ampere hours and total time duration are identical for the same phase on every 
cycle, an additional control card with the proper information can be added to the routine deck anc 
only the outcard raw data tape is needed. 

The retrieve-formatter routine deck, with one or more control cards added, is used to con- 
trol the computer program so that only the fields requested are retrieved from the input data 
(raw data) tape. If one raw data endcard or outcard tape does not contain all the data available, a 
second tape of each can be used provided the cycle numbers on the outcard tapes and endcard 
tapes correspond. 



Figure 8— Retrieve formatter routine card deck arrangement 
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Card deck arrangement . The cards are arranged in the sequence shown in Figure 8. The 
cards types are: 


Card Type 
1 

2 

3 

4 

5 

6 

7 

8 


Description 

Analyst identification card — asterisk in column 1 and any appropriate state- 
ment in columns 7-72 

Pause card — asterisk in column 1 and the letters PAUSE in columns 7-11 
Execute card — asterisk in column 1 and the letters XEQ in columns 7-9 
Binary routine deck 

Data card — asterisk in column 1 and the letters DATA in columns 7-10 
Control card 1 
Control card 2 
Control card 3 


Types 2-5 are the same for every retrieve-formatter request. Type 1 can be changed at the 
descretion of the analyst. Types 6-8 contain the request, and will control the routine. 


Control cards . Each request requires from one to three control cards. The first card selects 
the batteries and fields to be retrieved, the cycle range and increments, and raw data input tape. 
The second card provides six additional cycle ranges, and the third is used when the outcard raw 
data tape is processed by itself. In order to process more than one request on a single computer 
run, additional sets of control cards can be added to the end of the deck. A description of each 
control card is given below. 

Control card 1 . The information punched into this card contains the request of the analyst for 
abstracting data from the endcard data and/or outcard data tape. It can be used without control 
card 2 if no additional cycle ranges are required, and without control card 3 if the outcard data 
tape only is not required. 


Control Card No. 1 (Figure 9) 


Control 

Item card columns Description 

1 1 A "1" punch in column 1 of the control card will select endcard data. A 

"0" punch in this column will select outcard data. Figure 9 shows 
the selection of outcard data. 


2 2-13 A selection of data on one or more batteries is obtained by entering a 

"1" punch in the appropriate battery identification columns 2-13. The 
illustration shows the selection of batteries 4, 8 and 9. 

3 14-17 Items 3, 4, and 5 are listed separately but are used in conjunction with 

one another. Item 3 specifies the first cycle number requested. Cycle 
2500 is selected in the illustration. 
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Card 

Type 

1 


2 


3 


4 


5 

6 

7 

8 


9 


10 

11 

12 

13 

14 

15 


Description 

Outcard or endcard data 


Batter/ identification 


Starting cycle 

Interval between cycles 

Number of increments 
Phase 
Time code 
Field definition 


Outcard data tape only 


Least square fit — % of cycle 

Statistical or non -statistical 
Additional cycle range 
Invalid data request 
Cell cycle (outcard only) 

Expired day 


Figure 9— Retrieve-formatter routine control card 1 
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Control 

Item card columns Description 

18-20 The minimum distance between cycles specifies the minimum number 
of cycles between the actual desired cycles. Starting with cycle 2500 
and the minimum distance between cycles of 10, the following cycles 
if found would appear on the retrieved data tape: 2500, 2510, 2520 . . . 
when a cycle cannot be found the closest higher cycle is used. 

5 21-24 Item 5 specifies the maximum number of cycles desired. As illus- 
trated, 21 increments of 10 cycles each would appear on the retrieved 
data tape: 2500, 2510, 2530 . . . 2690, 2700. The cycle range is be- 
tween 2500 and 2700. The program will extract data only within this 
range, even though the data may be sparse and cycle 2700 is reached 
before 21 cycles have been retrieved. 

6 25 The half cycle specification is actually a specification of charge or 

discharge phase. A ”0" punch in this column denotes the charge 
phase of the cycle. A "1" punch denotes the discharge phase (Figure 
9), and a "2" punch denotes that the requested fields will be extracted 
for both phases. A negative cycle appearing on the retrieval tape in- 
dicates data is extracted from the discharge phase. 

7 26-28 The time code columns of the card, columns 26 through 28, apply only 

to the outcards. The digit in column 26 may be "0", "1", "2" or ’’3". 

A "0" specifies all data is requested for those cycles. A "1" specifies 
a request for a third order least squares polynomial fit of the selected 
fields corresponding to Y = Ax 3 + Bx 2 + Cx + D. Delta time will al- 
ways be the x-coordinate and must never be one of the requested fields. 
The Y-coordinate may be any of the fields (maximum of 5), except delta 
time. The output from a least squares fit request will contain standard 
deviation and four coefficients (A, B, C and D) for each field requested. 
In order for this to occur a "1" must also be punched in column 65 
(item 10). A ”2" or "3" in column 26 is used in conjunction with 
columns 27 and 28. Columns 27 and 28 specify the actual percentage 
of the cycle (time duration) that data are desired. The illustration 
shows 91 percent of the cycle. A "2" in column 26 would specify the 
first 91 percent of the cycle and a "3" in this column would specify 
the last 91 percent of the cycle. A "0" in column 26 would specify 100 
percent of data in the cycle. The last 91 percent of the cycle is illus- 
trated. When there is a "1" in column 65 there will be a least squares 
polynomial fit of the specified percentage of the cycle requested. 

8 29-62 The various fields of the endcard and outcard data tapes are called out 
by field number (Table 3). There are 15 separate outcard fields and 
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Table 3 


Definition of field numbers for retrieve formatter routine 


Field numbers 

Actual outcard field 

Actual endcard field 

F01 

Time 

Time duration 

F02 

Elapsed Time 

Amp minutes 

F03 

Average Instant. Power 

Watt minutes 

F04 

Current 

Energy efficiency 

F05 

Pressure 

Amp hours 

F06 

Voltage of cell 0 

Watt hours 

F07 

Voltage of cell 1 

Avg. current 

F08 

Voltage of cell 2 

Min. current 

F09 

Voltage of cell 3 

Max. current 

F10 

Voltage of cell 4 

Avg. power 

FI 1 

Voltage of cell 5 

Min. power 

F12 

Voltage of cell 6 

Max. power 

F13 

Voltage of cell 7 

Current efficiency 

F14 

Voltage of cell 8 

Avg. voltage 



Avg. current 

FI 5 

Voltage of cell 9 

Cycle of cell 0 

F16 


Cycle of cell 1 

F17 


Cycle of cell 2 

F18 


Cycle of cell 3 

F19 


Cycle of cell 4 

F20 


Cycle of cell 5 

F21 


Cycle of cell 6 

F22 


Cycle of cell 7 

F23 


Cycle of cell 8 

F24 


Cycle of cell 9 

F25 


Maximum variation 

F26 


R. time 


Control 

Item card controls Description 

8 (continued) 26 endcard fields noted in the table. To select any parameter such as 

voltage, pressure or current it will be necessary to specify its two- 
digit numbered field. The first field illustrated on the sample control 
card is field 11, "voltage" for cell 5. All remaining fields desired, up 
to 16, are likewise selected by 2 digit numbers. The fields desired 
need not be sequentially numbered. Endcard fields differ from outcard 
fields and can only be distinguished in the retrieve-formatter routine 
by requesting the outcard raw data tape (0 in column 1 of control card 
1) or endcard raw data tape (1 in column 1 of control card 1). 
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Control 

Item card columns Description 

9 64 A "0" in column 64 is required when only an outcard raw data tape is 

supplied as input. It requires that control card 3, which contains total 
ampere hours and total time duration for charge and discharge, be 
included in the deck. A "1" or blank in this column will require both 
endcard and outcard raw data tape input for an outcard data request, 
and an endcard raw data tape only as input for an endcard data request. 


10 65 


11 66 


12 67 


13 68 


14 69 


A "1" in column 65 is used in conjunction with item 7 (column 26) to 
specify a least squares polynomial fit. A "0" or blank in this column 
is a request for the actual raw data. 

Column 66 can be used to describe a statistical ("1") or nonstatistical 
("0") request. A "1" in this column will cause the retrieve routine to 
stop abstracting data when a blank or -0 value is found on the raw data 
tape, A "0" in this column will allow the routine to continue to abstract 
until the cycle range request is satisfied. 

A digit ”1" in column 67 indicates that additional "cycle ranges" are 
necessary. Control card 2 must be included with the routine deck. 

The illustration shows additional cycle ranges are necessary. 

A digit ”1” in column 68 of the control card will cause all invalid data 
within the request to be written on the retrieved data tape, otherwise, 
all invalid data will be bypassed. 

In certain cases it may be desirable to specify a particular cell cycle 
instead of a battery cycle. A "1" punch in column 69 will give the 
analyst this option. The actual cell desired (01 - 09) will be punched 
in the first field definition (Columns 29 and 30). 


15 70-72 To provide for later checking or sorting, the analyst will enter the 

expired day of the year in columns 70, 71 and 72. 


Control card 2 (Figure 10) 

The first cycle range is requested on control card 1 from columns 14-24 (items 3-5). Up to 
six additional ranges can be specified with control card 2 illustrated in Figure 10. 
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Figure 10— Retrieve formatter routine control card 2 

Description 

This is the starting cycle number. It has the same description as item 
3 on control card 1, except that it is the second range. 

5-7 The increment desired is punched into columns 5-7. Item 17 has the 

same description as item 4 in control card 1, except that it refers to 
the second cycle range. 

8-11 The number of increments is punched into columns 8-11. It has the 

same description as item 5 in control card 1 except that it is the 
second cycle range. 


Control 

Item card column 
16 1-4 
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Control 


Item 

card columns 

Description 

19-21 

12-22 

Same as items 16-18 except cycle range 3 

22-24 

23-33 

Same as items 16-18 except cycle range 4 

25-27 

34-44 

Same as items 16-18 except cycle range 5 

28-30 

45-55 

Same as items 16-18 except cycle range 6 

31-33 

56-66 

Same as Items 16-18 except cycle range 7 

Control card 3 (Figure 11) 


Item 


Description 


34 Columns 1-10 contain the total ampere hours of charge. The value can appear 
anywhere in these columns but a decimal point must be included. 



Description 


Item 

35 Columns 11-20. Same as Item 22 except for discharge. 

36 Columns 21-30 contain total delta (elapsed) time — in hours of charge. The restric- 
tion is the same as item 23. 

37 Columns 31-40. Same as item 24 except for discharge. 

Instructions to computer operator . The following instructions are given to the operator when 
submitting the data tapes and routine card deck for processing. 

1. Mount endcard binary data tape on logical tape setting of A-8. If an additional endear d tape is 
necessary to accommodate the raw data, the second tape is mounted on logical tape setting 
A-7. 

2. Mount outcard binary data tape on logical tape setting B-8. If an additional outcard tape is 
necessary to accommodate the raw data, the second tape is mounted on logical tape setting 
B-7. Caution — The second endcard and outcard tape must begin with the same cycle of the 
same battery. 

3. The retrieved binary data tape has a logical tape setting of B-9 (Output). 

4. The off-line (history tape) will have a logical tape setting of A-3. A printout of this tape 
is requested (the list routine is not required). 

5. For additional requests the operator is instructed to press START upon completion of run. 

6. Fortran II — EXECUTE 

7. Average machine time for a run is 2 minutes. 


Pseudo Generator Routine 

The purpose of the pseudo generator routine is to enable the analyst to obtain cell, battery, and 
other related parameters not present on the retrieved or raw data tapes. The method of generat- 
ing pseudo data tapes is illustrated in Figure 12. The input required is a retrieved data tape or 
another pseudo data tape. The pseudo generator routine deck including two sets of one to sixteen 
pseudo equation cards supplied by the analyst are used to control the routine. The resulting out- 
put is a pseudo data tape containing the defined pseudo fields appended to the original retrieved 
data fields. The original request of the retrieve -formatter routine and the defined pseudo equations 
are listed. 

Card deck arrangement . The pseudo field generator deck arrangement appears in Figure 13. 
The card types appearing in the figure are described below. 
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PSEUDO FIELD 
GENERATOR ROUTINE 
DECK AND EQUATION 
CARDS 


Figure 12 — Pseudo field generator routine functional flow diagram 


Card type Description 

1 Run identification card — must have an asterisk punched in column 1 — any 
other information may be punched in columns 2-72. 

2 Pause card — has an asterisk punched in column 1 and the word PAUSE 
punched in columns 7-11. 

3 Execute card — has an asterisk punched in column 1 and XEQ punches in 
columns 7-9. 

4 This is a set of 7 cards which constitute the control information of the FOR- 
TRAN source language subroutine mentioned in the input section. 

5 Pseudo equations start card — has a C punched in column 1 and the words 
PSEUDO EQUATIONS START HERE punched in columns 7-34. This card is 
used to indicate to the analyst where he must insert the pseudo field equation 
cards. 
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Card type 
6 

7 

8 
9 

10 

11 


Description 

The set of pseudo field equation cards is to be inserted by the analyst. 

Pseudo equations endcard — has a C punched in column 1 and the words 
PSEUDO EQUATIONS STOP HERE punched in columns 7-33. The card is used 
to indicate to the analyst where he must insert the pseudo field defining cards. 

Return card - has the word RETURN punched in columns 7-12. This is another 
control card of the FORTRAN source language subroutine. 

Endcard - has the word END punched in columns 7-9. This card is the termi- 
nal card of the subroutine. 

A set of binary punched cards which constitute the main body of the pseudo 
field generator program. 

Data card — has an asterisk punched in column 1 and the word DATA punched 
in columns 7-10. This card is used to indicate where the analyst is to insert 
the second set of the pseudo field defining cards. 


CARD TYPE 13 
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Figure 13— Pseudo field generator routine card deck arrangement 
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Card type 


Description 


12 The second set of the pseudo field defining equations to be inserted by the 
analyst. 

13 Endcard — has the word END punched in columns 7-9. This card is the ter- 
minal card of the entire program. 

Card types 1, 6 and 12 are prepared by the analyst and put into the proper position in the card 
deck prior to submitting the routine deck to the computer operator. All other types remain un- 
changed for every run. 

Card type 1 contains a statement which identifies the specific request for the analyst. It does 
not take part in the routine and is later printed out as punched. 

Types 6 and 12 are identical sets of pseudo equation cards which must be defined by the 
analyst. A comment (identification) card may be inserted among the pseudo field equation cards. 

Pseudo field equation cards. The analyst can request from one to sixteen pseudo fields using 
this routine. Each pseudo field equation must be punched on a separate card. Three examples of 
pseudo field equations are given in Figure 14. Note that columns 1 to 6 are blank. The letter P 
must appear in column 7 followed by the pseudo field number (1 in Example 1), an equal sign (=) 
and then the equation. Columns 73 to 80 may contain any identifying symbols or code desired by 
the analyst. 

The equations are FORTRAN n statements which means that all operations valid for FORTRAN 
n can be used. Some of these are listed in Table 4 along with the symbolic language. 

The fields available from the raw data tape and from the retrieve-formatter tape, together 
with their symbolic field names, appear in Table 3. The method used for referencing the desired 
retrieved data fields and pseudo fields in the pseudo field equations is described using the examples 
in Figure 14. 

Example 1 

After using an endcard raw data tape as input to the retrieve-formatter routine, a retrieved 
data tape was generated. This tape serves as input to the pseudo field generator routine. In the 
example, pseudo field 1 (PI) is set equal to the result of data field 2 (amp minutes) divided by the 
sum of data field 6 (watt hours) and data field 4 (energy efficiency). Pseudo field 1 (PI) will be 
calculated using these specific fields for every cycle on the retrieved data tape. 

Example 2 

This example is similar to example 1 except that in addition to the inclusion of a data field 
(F01) in the equation, a pseudo field, the value for cycle (eye), and a constant (7.24) were included. 
In the equation pseudo lield 2 (P2) is set equal to 7.24 plus the quotient of pseudo field 1 (PI) times 
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Table 4 

Symbols Used in FORTRAN II Language 


Operation 

Symbol 

1. Exponentation 

** 

2. Division 

/ 

3, Multiplication 

* 

4. Addition 

+ 

5. Subtraction 

- 

6. Sine (ARG) 

SINF (ARG) 

7. Cosine (ARG) 

COSF (ARG) 

8. Arctangent (ARG) 

ATANG (ARG) 

9 . Natural Log (ARG) 

LOGF (ARG) 

10. Log 10 (ARG) 

LOG10F (ARG) 

11. e (ARG) 

EXPF (ARG) 

12. I'XRG 

SQRTF (ARG) 

13. ARG | 

ABSF (ARG) 

NOTES: a. If the operations used in the expres- 
sion are not explicitly ordered by 
parentheses, the order of the first 
five operations will be as shown. 

b. The (ARG) above must be any legiti- 
mate arithmetic expression. 

c. For the availability and symbols of 
other operations see any FORTRAN 
II instruction manual. 


cycle number times data field 1 (time duration). Any constant may be used provided it contains a 
decimal point and is in the range of -1 x 10' 36 to + 1 x 10 36 . 

Example 3 - least squares fit of the data 

A’~ option of the retrieve-formatter routine allows the analyst to request a least squares poly- 
nomial fit of the outcard data. In this case, as noted earlier, the retrieved tape contains the 
standard deviation, the coefficients of the polynomial and the time duration for each cycle in place 
of the actual single-valved fields. The polynomial which uses the coefficients is 

P = Ax 3 + Bx 2 + Cx + D, 
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EXAMPLE # 1 


PI = F02/( F06* F04) 


1 2 3 4 5 67 8 9 10- 


P2 = P 1 * X * F 0 1 * 7.24 


123456789 10- 


P 1 6 = F 0 1 (2) * X * * 3 + F 0 1 (3) * X * * 2 + F 0 1 (4) * X + F 0 1 (5) 


789 10 


EXAMPLE #4 Comment Card 



Figure 14— Examples of pseudo field equation cards 
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where A, B, C, D are the coefficients and X is the time described in Table 5. The field designations 
for these coefficients are included in the table. 

In order to calculate the value for this polynomial at a given time, the pseudo equation card in 
example 3 must be supplied. In example 3 pseudo 16 (PI 6) is set equal to the result of the A 
coefficient of data field 1. (F01 (2))times the time cubed (X ** 3), plus the B coefficient, (F01 (2)) 
times the time squared (X ** 2) and etc., X represents the total time. If the value of the field at a 
particular time were required, the specific time would be inserted in the place of X. If the value 
of the field were required at the midpoint of the cycle, the symbol (X/2) would be inserted in place 
of X. 


Table 5 


Symbolic names, least square fit data 


Symbolic name 

Actual outcard data 

X 

Time duration for all fields in a particular cycle 

F01 (1) 

The standard deviation of the polynomial fitted 


to the outcard data of field number 01 

F01 (2) = A 

The coefficient of the X 3 term of the polynomial 

F01 (3) = B 

The coefficient of the X 2 term of the polynomial 

F01 (4) = C 

The coefficient of the X term of the polynomial 

F01 (5) = D 

The constant term of the polynomial 


F01 is the number of the data field requested for least square fit 
Example 4 — comment Cards 

Example 4 in Figure 14 illustrates the format of the comment card. The letter C must be in- 
serted in column 1 and the actual comment begins in column 7. The comment card is similar to 
the run identification card because it has no functional use except to interject appropriate com- 
ments among the actual field-defining equations. It was noted that the use of this card was optional. 

Because of the nature of the pseudo generator routine, the analyst is not bound to insert only 
pseudo field defining cards into the FORTRAN source language subroutine. Any legal FORTRAN 
statement with the exception of a COMMON statement could be used, which means that a subroutine 
could be written in FORTRAN II language, and submitted in place of or included among the pseudo 
field equations if desired. 

The details of other type statements are not mentioned because they are not to be used by the 
analyst. However, they can be found in any FORTRAN II instruction manual. 

Instructions to the operator . The following instructions are given to the computer operator 
when submitting the retrieve or pseudo data tape and the pseudo field generator card deck. 
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1. If a retrieved data tape is used as input, mount on a logical tape setting of B-9. If another 
pseudo field tape is used as input, mount on a logical tape setting of B-7. 

2. The output tape of the pseudo field generator routine has a logical setting of B-7. 

3. FORTRAN n — compile and execute. 

4. The time required for computer usage depends on the number and type of pseudo field 
equations. The average request would probably be 2 minutes. 

Data List Routine 

The data list routine is used to print out the data in tabular form of either a retrieved data 
tape or pseudo data tape as in Figure 15. An example of a retrieved data tape with least squares 
fit option as shown in Figure 16. The listing of a pseudo data tape (Figure 17) is also shown. A 
non-least squares retrieved data list would be identical to the pseudo data list without the pseudo 
fields. 

Card deck arrangement . The arrangement of the data list deck appears in Figure 18. The 
cards required are described. It will be noted that no control cards are required. The deck is 
the same for every request. 



Figure 15— Data list routine functional flow diagram 
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Figure 16 — Sample printout of pseudo data tape — least squares fit request 
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Figure 17— Sample printout of pseudo data tape — actual data request 
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— *PAUSE 

PAUSE CARD 


CARD TYPE 2 


/\lST ROUTINE 
ID CARD 


CARD TYPE 1 


Figure 18— Data list routine card deck arrangement 


Instructions to the operator 

1. Mount input tape (retrieve data or pseudo data) on logical setting of B-9. 

2. Use 132 print position paper. 

3. Multiple tapes may be printed by pressing start after completion of each run. 

4. FORTRAN II - Execute. 

5. Average machine time for a run is 2 minutes. 

Statistical Analysis Routine 

The statistical analysis routine is used to perform statistical calculations involving the fields 
and pseudo fields on the retrieved or pseudo field data tapes, and print out the results in suitable 
data listings (Figure 19). The analyst may select from a retrieved data or pseudo data input tape 
the fields and/or pseudo fields to be processed and the statistical calculations to be made. 
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Figure 19— Statistical analysis routine 
functional flow diagram 



The routine card deck, with a control card added by the analyst, is used to control the com- 
puter operation. The selected fields are operated on statistically in three steps. In the first step, 
the mean, variance, and standard deviation of the selected fields are calculated. In the second 
step, a matrix of linear correlation coefficients is calculated. In the third step, the coefficients of 
the multiple linear regression equation expresses the dependence of one of the variables 
(the one specified by the analyst via input control card data), considered as the dependent vari- 
able on the others, considered as independent variables. The program computes the regression 
coefficients by "entering" the independent variables into the equation one at a time. At each 
"entrance," the program removes from the equation a variable whose contribution to the variance 
is insignificant, or, if no variable can be removed, enters into the equation that variable which 
produces the largest reduction in the "unexplained" variance of the dependent variables. The re- 
sults of each step are printed out at the conclusion. Printed out as a heading are the retrieve re- 
quest, the pseudo request, and the statistical request. Figure 20 is an example of a printout of a 
statistical analysis request when all three steps are requested. The headings are eliminated. 

Card deck arrangement . The deck of input cards in proper order is illustrated in Figure 21. 
The cards types are: 

Card type Description 

1 Identification card - asterisk in column 7 and run identifying comment in 

columns 7-72. 


2 Pause card. Asterisk in column 1 and the letters PAUSE in columns 7-11. 

3 Execute card. Asterisk in column 1 and the letters XEQ in columns 7-9. 

4 Binary program deck. 
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Figure 20— Sample printout of statistical analysis tape 



Figure 21 —Statistical analysis routine card deck arrangement 

Card type Description 

5 Data card. Asterisk in column 1 and the letters DATA in columns 7-10. 

6 Statistical analysis control card No. 1. 

7 Statistical analysis control card No. 2. 

8 End of data card - a card with a 9 in column 1. 

Card types 6 and 7 must be supplied by the analyst. The other types appear whenever a re- 
quest for a statistical analysis is made. 

Control cards . The first control card allows the analyst to select the fields to be processed 
and the statistical operations to be performed. At least one control card must be prepared by the 
analyst for the statistical analysis routine to work. To run multiple requests, an additional set of 
control cards must be added after control card 2 prior to the end of the data card. 
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Item Description 

1 Run tape 

2 Data option 


3 Dependent variable 


4 Independent variable field and 

pseudo field specification 


5 F level entry 


6 F level removal 


7 Addition field indicator 


Figure 22— Statistical analysis routine control card 
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Control card 1 


Item 

1 


2 


3 


4 


5 

6 
7 


Digit in 
Column column 

1 


1 

2 

3 

4 

5 

6 


2 


1 

2 

3 

4 


3-5 


7-63 


64-67 

68-71 

72 


Description 

Input tape Operations 

In column 1 is specified the type of statistical calculations, and the 
retrieved or pseudo data input tape. The following are the choices the 
analyst can make when requesting a statistical analysis: 


Retrieved tape 
Retrieved tape 

Retrieved tape 

Pseudo field tape 
Pseudo field tape 
Pseudo field tape 


Mean, variance, and standard deviation. 

Mean, variance, standard deviation, and linear 
correlation. 

Mean, variance, standard deviation, linear correla- 
tion, and multiple stepwise linear regression. 

Same as 1. 

Same as 2. 

Same as 3. 


Column 2 describes the fields or pseudo fields to be processed. 


Field - pseudo field continuation requested 
All fields and pseudo fields on input tape. 

All fields and specified pseudo fields. (See items 3 and 4) 

All pseudo fields and specified fields. (See items 3 and 4) 

Only specified fields and specified pseudo fields. (See items 3 and 4) 

Columns 3-5 contain the field or pseudo field designated to be the de- 
pendent variable. It is specified in the form of a field number (F01) 
for retrieved data, and a pseudo field number (P01) for pseudo field 
data which is consistent with items 1 and 2. 

Columns 7 through 63 contain all fields and pseudo fields to be 
processed as independent variables in the statistical analysis routine. 
Columns 7-63 are divided into segments of three columns, each for 
fields specified by F01 and pseudo fields P01, etc. 

Columns 64 through 67 contain the "entry" F level value to be used in 
conjunction with a multiple regression type run (item 1 = 3 or 6). 


Columns 68 through 71 contain the "removal" F level value to be used 
in conjunction with a multiple regression type run (item 1 = 3 or 6). 


Column 72 contains the additional input control card indicator. A value 
of zero means no additional control card follows. A non-zero value 
indicates the presence of an additional control card. 
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Control card 2 


Additional independent variable fields can be requested by using a second control card. Col- 
umns 1-60 of the second card are divided into segments of three columns each. The additional 
fields and pseudo fields are designated in the same manner as described in item 4. 

Instruction s to the computer operator 

(1) Mount input retrieved tape on a logical setting of B-9. Input pseudo tape is mounted on a 
logical tape setting of B-7. 

(2) Use 132 print position paper. 

(3) Multiple tapes may be printed by pressing "START" after completion of each run. 

(4) FORTRAN II - EXECUTE. 

(5) Machine time for the average run is estimated at 2 minutes. (Since the nature of the 
program tends to produce considerable output, a cutoff limit of 500 pages per run was 
added to the program.) 


Printed Plot Routine 

The printed plot routine is used to abstract the information requested by the analyst in the re- 
trieve-formatter and pseudo field generator routines, and to present the results in a printed plot 
form (Figure 23). The routine card deck, with control cards included by the analyst, controls the 



Figure 23— Printed plot routine functional 
flow diagram 


34 




computer so that the data is extracted from the input tape, recorded on an intermediate output 
tape, and then printed out in the plot form with dimensions. Also printed are the retrieve-formatter 
request statements, the pseudo generator request statements, and the printed plot request state- 
ments. 

Figure 24 is a sample of a printed plot. The term printed plot refers to the fact that the data 
points are printed by an IBM 1460 computer which presents the curve in a discontinuous format 
similar to that of a multiprint recorder. Either numerals, letters or symbols can be used to desig- 
nate data points. 

Any five variables (Y i , Y 2 , Y 3 , Y 4 , Y s ) corresponding to any retrieve or pseudo fields can be 
plotted vs. any other variable (X) which can be a retrieve or pseudo field. The analyst has the 
capability of defining the coordinates and their sensitivity, setting the size of the grid spacing, and 
the total width and length of the graph image. The maximum allowed for one continuous plot is 500 
lines (8 pages). 

Card deck arrangement. The card deck arrangement is illustrated in Figure 25. The follow- 
ing are the card types required and a brief description of each: 

Card type Description 

1 Identification card. 

Asterisk in column 1 and run identification numbers in columns 7-72. 

2 Pause card. Asterisk in column 1 and the letters PAUSE in columns 7-11. 

3 Execute card. Asterisk in column 1 and the letters XEQ in columns 7-9. 

4 Binary routine deck. 

5 Data card. Asterisk in column 1 and the letters DATA in columns 7-10. 

6 Control card 1. 

7 Control card 2. 

8 Control card 3. 

Card types 2-5 are always the same for every run in which a printer plot is requested. Type 
1 is a statement defined by the analyst for identification purposes which does not affect the routine. 
Types 6-8 control the routine and are to be supplied by the analyst. The three control cards are 
required for each request of the printer plot. For successive requests, additional groups of the 
three control cards are placed behind the first group of three. 

Control cards . Control card 1 chooses the input tape, selects the scale factors, and deter- 
mines the X and Y variables to be plotted. Control card 2 sets the Y variable maximum and 
minimum and determines the direction of X and Y. Control card 3 sets the X variables maximum 
and minimum, and the number and value of ranges to be plotted. 
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Figure 24-Sample printout of printed plot tope 
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Figure 25— Printed plot routine card deck arrangement 


Control card 1 (Figure 26) 


Control card 

Item column Description 

1 1 A "0" in column 1 selects a retrieved data tape. A "1" in column 1 

selects a pseudo data tape. 

2 2 To use actual scale factors and three places to the right of the decimal 

for both X and Y, punch a "0" in column 2, and ignore items 3-6 (col- 
umns 3-6). (A ”0" punch means actual scale factors, and three places 
to the right of the decimal point corresponding to 0, 3, 0, 3 in columns 3-6). 
For any change punch a 1 in column 2. 


3 3 The numeral punched in column 3 is equal to I where printed values of 

the ordinate (Y) are 10 1 times the actual values. A zero in this column 
as shown in the figure means the actual values are to be printed along 
the ordinate. 


4 4 The numeral punched in column 4 is equal to J where printed values of 

the ordinate (Y) will have J digits following the decimal point. A "2" 
punched in this column requires two places following the decimal so that 
the value along the ordinate will have two digits X.XX. 
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17 18^20(21 22|23 1 24 25 126 I / ) |39 I 40 4l|42 I / / I 78 |/9 


Hem 


Description 


Actual scale factors 

Y ordinate multiplier 

Y ordinate decade 

X abscissa multiplier 
X abscissa decade 


Horizontal lines 


Horizontal spaces 


Vertical lines 


Vertical spaces 


X Variable field 





12 Y Variable fields 



Figure 26— Printed plot routine control card 



Control card 
column 

5 

6 6 

7 8-9 

8 11-12 

9 14-15 

10 17-18 

11 20-22 


Item 

5 


12 23-26 

27-30 
31-34 
35-38 
39-42 


Description 

Column 5 is the same as item 3 except referenced to the abscissa (X). 

A "0" is shown in the figure. 

Column 6 is the same as item 4 except references to the abscissa (X). 

A "0" is shown in the figure which indicates no digits to the right of the 
decimal point for X. 

Columns 8 and 9 denote the number of horizontal grid lines in the graph 
image. The example shows 5. 

Columns 11 and 12 are used to denote the number of spaces between the 
horizontal grid lines. The example shows 10. NOTE: Item 7 times 
item 8 is the number of horizontal lines for printing the value of a 
variable. For a one page plot the value is 50. 

Columns 14 and 15 are used to denote the number of vertical grid lines 
in the graph image. The example shows 10. 

Columns 17 and 18 are used to denote the number of spaces between the 
vertical grid lines. The example shows 10. NOTE: Item 9 times item 
10 is the number of vertical lines for printing the value of the variable. 
For a 1 page plot the value is 100. 

Columns 20, 21, and 22 are where the analyst places the X variable. 
Column 20 must be an "F" or "P" indicating a field or a pseudo field. 
Columns 21 and 22 contain the actual field number. The example shows 
that the "X" value is a pseudo field and for purposes of illustration was 
set equal to cycle in a pseudo field generator routine request. 

The Y variables are placed starting in columns 23 through 26 for the 
first "Y," thru columns 39-42 for the last or 5th "Y". From one to five, 
"Y's" may be plotted. The format for the control card for Y values is 
the same as for the X value except that the last character of each "Y" 
field requested is the plotting character. The example shows that the 
value to be plotted for "Y 1 " is Field 4 (energy efficiency using an 
endcard data tape) and the plotting character is an asterisk. 


Control card 2 (Figure 27) 

Control card 

Item column Description 

13 1-10 Y MINIMUM - columns 1-10 contain the minimum value of all the Y 

variables for a given run. The value does not have to start in column 1 
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Item 


Description 



> 


> 


J 

} 


} 

} 


13 


14 


15 

16 
17 


Y min 


Y 


max 


No, of X limits 

Reverse X and Y 
Cycle range plot 


Figure 27— Printed plot routine control card 2 

Control card 

Item column Description 


13 (continued) but must be contained in columns 1-10, A decimal point must be present. 

In the example, the minimum value of F04 (energy efficiency) is 0.50. 


14 11-20 Y MAXIMUM - columns 11-20 contain the maximum value of all the Y 

variables for a given run. Format is the same as Y MINIMUM. The 
example shows Y MAXIMUM to be 1.00. Y MINIMUM and Y MAXIMUM 
will appear along the ordinate grid lines outside the edge of the graph. 


15 21-22 Columns 21 and 22 contain the number of X coordinate limits to be read, 

from control card 3 (Figure 27). Every plot has two limits - an X maxi- 
mum and X minimum. The sample control card in Figure 26 shows item 
15 equal to 06 because there are 3 pairs of X maximum and X minimum 
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Item 


Control card 
column 


Description 


from control card 3 to be read. If a second control 3 were necessary for 
additional ranges, the number of fields used would be included in the 
count for item 15. 

If column 23 contains a zero then the X variable will appear along the 
abscissa, and the y variables will appear along the ordinate. Any non- 
zero value in column 23 will reverse the above statement (Figure 28), 

This is used only for endcard or outcard least square fit requests, where 
each plot is a cycle range. 

If column 24 contains a zero as in the example then all the pairs 
of ranges on control card 3 are reduced to a single range. 

If column 24 contains a "1" punch, then each pair of ranges on con- 
trol card 3 is equivalent to a complete range on the tape. All ranges on 
the tape to be plotted must appear on control card 3 if the "1" punch in 
column 24 option is used, and must be in the same sequence as requested 
in the retrieve-formatter-routine. 


Control card 3 (Figure 29) 

This control card describes the minimum and maximum values of X for each plot (range). 


Item 

Columns 

Description 

18 

1-10 

These columns contain the minimum value of X (X min) including decimal 
point for the first range. 

19 

11-20 

These columns contain the maximum value of X (X max) including a decimal 
point for the first range. 

20 

21-30 

Same as item 18 except it applies to range 2. 

21 

31-40 

Same as item 19 except it applies to range 2. 

22 

41-50 

Same as item 19 except it applies to range 3. 

23 

51-60 

Same as item 19 except it applies to range 3. 


The example in Figure 29 shows the first cycle range is 0 to 100, the second range is 100 to 
200 and the third is 200 to 300. 

An additional control card 3 can be used if additional ranges are required. A maximum 
seven are allowed. In the sample control cards (Figures 25-27), a 1 appears in column 23 of 


15 (continued) 


16 23 


17 24 
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Pair of Ranges 









control card 2. Only one range is required with X m . n equal to 0 and X max equal to 300. Item 15 
(control card 2) would have to be changed to 02. 

There are certain restrictions in this routine which must be considered when the analyst is 
preparing a run: 

1. When plotting endcard data, whether retrieved or pseudo, the program plots by cycle range. 
The number of cycles in a cycle range must not exceed 500. 

2. A tape to be plotted with least square fit fields must be a pseudo tape, and only pseudo 
fields may be referenced. 

3. The internal core image array is set at 7000 locations. Therefore, "N" must not exceed 
this limit. 

N = (Item 9 times item 8 + 1) x P, 

where P = (Item 11 times item 10 + l)/6 rounded out to the nearest integer. 

4. Items 8-11 cannot be set equal to 0. 

5. Item 14 (Y ) must be less than item 15 (Y ). 

Instructions to the operator . The following instructions must be given to the operator when 
submitting the routine card deck for analysis. 

1. Mount retrieved data tape on logical tape setting B-9 or mount pseudo data tape on logical 
setting of B-7. 

2. Use 132 print position paper. 

3. Process multiple runs (additional sets of control cards l-3)by pressing START after each run. 

4. FORTRAN H - EXECUTE 

5. Average machine time for a run is 2 minutes. 

6. Request TONAP Carriage Tape 
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CARD TO TAPE EDITING PROGRAM 


APPENDIX A 


CARD TO TAPE EDITING PROGRAM 

The card to tape editing program will take the raw data cards 
and record them on magnetic tape. This is followed by a series of 
tests in which this data is sorted and checked for validity. Any 
cycles found to be invalid are then deleted or have special codes 
placed on them. The new data becomes the endcard and outcard raw 
raw data tapes, and are merged in binary form with the other data 
already on tape to become up-to-date endcard and outcard raw data 
tapes. 



Appendix A 


1. Instructions for Use 

General order of programs to run when merging new data with old data. 

A. Cards to tape 

1. Outcards 

2. Endcard #2 

3. Endcard #1 

B. Sort routine 

1. Outcards 

2. Endcard #2 

3. Endcard #1 

C. Alpha check routine 

1. Outcards 

2. Endcard #2 

3. Endcard #1 

D. Preliminary analysis routine 

1. Outcards 

2. Endcard #1 

E. Delete and duplication elimination routine 

1. Outcards 

2. Endcard #1 

F. BCD to binary routine 

1. Outcard 

2 . Endcard #1 and Endcard #2 

G. Binary merge routine 

1. Outcards 

2. Endcards 

Note: See Flowcharts for merging endcards and outcards on Pages 2 and 3. 


A-l 




STEP E-2 

ENDCARD 1 
DELETION 
AND DUP. 



Figure A-2-Endcard Card to Tape Editing Programs 
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Steps A-l, A-2 and A-3 


1. Title ; Preparation of data cards to be put on tape. 

2. v Gen eral description : 

A. Data to be limited to a maximum of one 2400 foot tape or less. This is approximately 15 
boxes of cards. 

B. Jse separate tapes for the following: 

2. Endcard #1 
3,. Endcard #2 
1. Outcards 

C. Make sure on update runs that no cycles from new data are already on the old data tape. 
Also make sure that the last cycle on each battery is complete for the new data to be 
merged. 

D. See illustration on Page 7 of data card formats before recording on tape. Also see Pages 
6, 9, 10 for more detail on the data card formats. 

3. Ope rating Procedure : Cards are put on tape using an IBM 1401 Computer FARGO Program. 
Steps B-l, B-2 and B-3 

1. Title : Data sort program 

2. General description : 

The purpose of the data sort program is to assure that all the data that has been put on tape is 
in order, according to battery number and cycle number. 

3. Input: 

Use the raw data tape (A5), also use a 3 scratch tapes (A7), (B5) and (B6). 

4. Output: 

Generates output tape (A6). Examples of print out are attached. 

5. Operating procedures : 

Attach a job card and computer operations tape log card to front of binary deck. 

6. Special considerations: 
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a. Call out on job card to use IBSYS system. 


7. Sample deck set-up 


a. Identification card. An asterisk punched in column 1 and in columns 7-72 a program de- 
scription is punched. 

b. Pause card. An asterisk punched in column 1 and PAUSE punched in columns 7-11. 

c. Execute card. An asterisk punched in column 1 and XEQ punched in columns 7-9. 

d. Binary deck. 



^*XEQ 

CARD 


'♦PAUSE 

CARD 


*ID 

CARD 


a 


NOTE: This setup is same for endcard #1, endcard *2 and outcards. 
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Figure A-3— Example deck setup - sort program 




8. Example of on-line listing for SORT - B-l, B-2 and B-3: 

$ID 

$Pause 

Oper. action pause 
. . Continuing 

Remark endear d 1 data sort 

Prepare units as follows. . *EP06 

Unit A5 Input tape 

Unit B5 Merge tape 

Unit B6 Merge tape 

Unit A6 Merge tape 

Unit A7 Merge tape 

Unit BO Checkpoint tape 

Press start when all units are property prepared and in ready status. 

dper. action pause 
. . Continuing 

Unit A6 closing output reel No. 0001 *0U01 

End of sort 

Steps C-l, C-2 and C-3 

1 . Title: Alpha check program 

2. General description: 

This program will eliminate any card images that contain alpha characters. This program is 
used to place an additional record at very end of output tape that contains 999999 in columns 1-6. 
This is a last card signal for the next series of programs. 
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3. Input: 

Use the tape generated from data sort (A5). 

4. Output : 

Generates output tape (A6). Examples of print- out are attached. 

5. Operating procedures: 

Attach a job card and computer operations tape log card to front of binary dec. 

6. Sample deck setup 

Same as for data sort, Page A- 5. 

Note: Endear d #1 tape and endear d #2 tape should be run separately. 

7. Example of on-line listing for alpha check - C-l, C-2 and C-3: 

* Alpha check program for endcards 1 

* Pause 
*XEQ 
Execution 

Last A5. processing complete 
999999 

Prepare A6 if processing incomplete. 

Step D-l (for Endcards - See Step D-2, page A-13) 

1 . Title: Outcard preliminary analysis program 

2. General description: 

This program computes the following for analysis: 

a. Volts hours over a range of start and end time of half cycle. 

b. Number of cards present on a half cycle. 
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c. Average voltage for first and last card on half cycle. 

d. Delta time of first and last card punched during half cycle. 

3. Input: 

Use tape generated from outcard alpha check (A5). 

4. Output: 

Generates an off line listing from tape (A3) to all outcard cycles. 

5. Operating procedures: 

Attach a job card to front of binary deck. 

6. Special considerations: 

a. From the off-line listing that was generated it is possible to analyze any out-of-limit con- 
ditions. Also to determine if any cycles are invalid and should be deleted. 

b. An out-of-limit condition may actually be valid data. Cycles of this nature will be recorded 

according to the condition, coded and used later in the BCD to binary conversion program. 

7. Sample deck setup : 

Same as for data sort (Figure A-3). 

8. Example of on-line listing preliminary analysis for outcards - D-l: 

* Preliminary analysis for outcards 

* Pause 

* XEQ 
Execution 

927 Lines output this job. 

Also tape A-3 lists all cycles out of limits. 

Step E-l 

1. Title : Outcard delete and duplication record elimination program. 

2. General description : 

This program deletes any duplicate records which may have accidently been loaded on the 
original magnetic tape, and deletes any invalid records located by the preliminary analysis routine. 



3. Input: 


a. Use the outcard tape generated from outcard alpha check (A5). 

b. Any cycles to be deleted will be punched on IBM cards and placed directly behind a "*data 
card." This is loaded directly behind the source program and the last card has a "99" 
punched in columns 5 & 6 to signal end of data. This card has to be loaded directly behind 
a "data card" even if no cycles are to be deleted. Below is example of card format. 


Column 

Data 

Description 

i 

X 

0 Complete cycle 



1 Half cycle 

5 & 6 

XX 

Battery number 

8-11 

xxxx 

Cycle number 

14 

X 

Phase if needed 

24 

0 

Signifies outcards 


4. Output: 

a. Generates output tape (A6) 

b. Off-line listing from tape (A3) will list any duplicate records that were found and any records 
which were deleted. 

5. Operating procedure: 

Attach a job card and computer operations tape log card to the front of the binary deck. Same 
type as made out for endcards. 

6. Sample deck setup: 

This will be the same as used for endcards, (Figure A-4, Page A-16 for example of deck setup), 
(Page A-15 for explanation of this setup). 

7. Examples of on-line listing outcard delete and dup record elimination - E-l : 

* Outcard delete and dup record elimination 

* Pause 

* XEQ 
Execution 

12539 Lines output this job. 
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Step F-l 


1. Title: Outcard BCD to binary program 

2. General description: 

This program generates a binary tape with batteries 0-11 on it. It records on this tape the 
format as shown on Page 41 for outcards. This program makes some final validity checks before 
writing the cycles up on binary tape. If the cycles do not meet the requirements, it will not write 
this cycle up on tape. Any cycles which are not accepted are listed on the output tape (A3) with the 
battery and the cycle number, also the reason for not being accepted. Below are some of the checks 
made. 


a. Checks to see if the card is an outcard by sequence number. 

b. Checks to see if there are 5 or more cards per half cycle. 

This program puts codes on all cycles for which a code card was made. Also uses the endcard 
code tape and places the last bad endcard cycle number in code "C" on every outcard cycle until the 
next bad endcard cycle number is equal to or greater than the outcard cycle number and then this 
number is used in code "C". 

3. Input: 

a. This program uses (3) input tapes. 

i. Output tape of outcard delete program (B5). 

ii. Outcard tape with codes (A7). 

iii. Endcard tape with codes (A6). 

b. Outcard codes which were made up from listing of outcard preliminary analysis program 
are written up on separate tape. Format for punched cards is as follows: 


Column 

Data 

Description 

5 & 6 

XX 

Battery number 

9-12 

xxxx 

Cycle number 

14 & 15 

XX 

Code number 

16 - 18 

XXX 

Time if any 

24 

0 

Signifies outcard 


ii. These cards have to be in order by battery and cycle number before going on tape, 
iii. Last card has "99" punched in columns 5 & 6 to signal last card. 
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Output: 


4. 

a. Generates binary output tape (A8) containing batteries 0-11. 

b. Generates off-line listings from tape (A3) of all outcard data that is on this update run. 
Request (2) listings of this tape. 

5. Operating procedures: 

Attach a job card and computer operations tape log card to the front of the binary deck. 

6. Special considerations : 

a. Before running this program, a tape with endcard codes must be ready. 

b. Include the last cycle coded from each battery from the last update run. 

7. Sample deck setup 

Same as for the data sort (Figure A-3). 

8. Example of o n-line listing outcard BCD to binary - F-l : 

* Outcard BCD to binary 

* Pause 

* XEQ 
Execution 

12691 Lines output this job. 

Step G-l 

1 . Title: Outcard binary merge 

2. General description: 

This program will merge all the new data with the old. It generates (2) binary tapes, one with 
batteries 0-7, and the other with batteries 8-11. 
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3. 


Input: 


This program uses (3) input tapes. 

a. Output tape of outcard BCD to binary (A5) 

b. Old binary outcard tape containing batteries 9-7 (B6) 

c. Old binary outcard tape containing batteries 8-11 (B7) 

4. Output : 

Generates (2) output tapes. 

a. Updated binary outcard tape with batteries 0-7 (B6) 

b. Updated binary outcard tape with batteries 8-11 (B7) 

5. Operating procedures : 

Attach a job card and (2) computer operations tape cards to the front of the binary deck. 

6. Special considerations: 

Duplicate the (2) binary tapes for spares, in case anything happens to the originals. 

7. Sample deck setup: 

Same as data sort (Figure A- 3). 

8. Example of on-line listing outcard binary merge - G-l: 

* Outcard binary merge 

* Pause 

* XEQ 

Execution 
End of job 

13 Lines output this job. 

* End tape 
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Step D-2 


1. Title: Endcard #1 preliminary analysis program 

2. General description: 

This program summarizes any out of limit condition on any card image on the input tape. The 
following are the fields it will check and if they are not in limits of the parameters set up, they will 
be listed on tape A3 for off-line listings. 

a. Charge time 

b. Discharge time 

c. Energy efficiency 

d. Current efficiency 

e. Watt hours charge 

f. Watt hours discharge 

Should it be necessary to modify the out of limit parameters, it can be easily accomplished by 
modification of the source program constants. See example with source program. 

3. Input: 

Use tape generated from alpha check (A5). 

4. Output: 

Does not generate any output tape, just an off-line listing from tape A3. See attached example 
of this listing. 

5. Operating procedures : 

Attach a job card to the front of the binary deck. 

6. Special considerations : 

a. Do not use endcard #2 tape with this program. 

b. From the A3 listing, it is possible to analyze the out of limit conditions, to determine the 
validity of the information. Any invalid cycles will be recorded and are to be used in the 
delete program. 

c. An out of limit condition may actually be valid data. Cycles of this nature will be recorded 
according to the condition, and used later in the BCD to binary conversion program. 

7 Sample deck setup: 

Same as the data sort (Figure A- 3). 


A-13 



8. Example of on-line listing for endcard preliminary analysis - D-2: 

* Preliminary analysis for endcards 1 

* Pause 

* XEQ 

Begin compilation 
Execution 

1382 Lines output this job. 

Step E-2 

1. Title: Endcard #1 delete and duplication record elimination 

2. General description: 

This program deletes any duplicate records which may have accidently been loaded on the 
original magnetic tape. Also deletes any invalid records located by the preliminary analysis 
routine. 

3. Input : 

a. Use the endcard #1 generated from the alpha sort (A5). 

b. Any cycles to be deleted will be punched on IBM cards and placed behind a "*data card." 
The last card has a 99 in columns 5 and 6 to signal the end of the data. This card has to be 
the last card even if no cycles are to be deleted. Below is example of card format. 


Column 

Data 

Description 

1 

0 

Identification 

5 & 6 

XX 

Battery No. 

8 - 11 

xxxx 

Cycle No. 

24 

E 

Signifies endcard 


4. Output : 

Generates output tape (A-6). Examples of print out are attached. 

5. Operating procedure : 

Attach a job card and computer operations tape log card to the front of the binary deck. 
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6. Special considerations: 


Do not use endcard #2 tape with this program. 

7. Sample deck setup (Figure A-4): 

a. Identification card. An asterisk punched in column 1 and a program description punched in 
columns 7-72. 

b. Pause card. An asterisk punched in column 1 and PAUSE punched in columns 7-11. 

c. Execute card. An asterisk punched in column 1 and XEQ punched in columns 7-9. 

d. Binary deck. 

e. Data card. An asterisk punched in column 1 and DATA punched in columns 7-10. 

f. Delete cards. 

g. Last card with 99 punched in columns 5 and 6. 

8. Example of on-line listing for endcard delete and dup record elimination - E-2 : 

* Endcard 1 delete and dup record elimination 

* Pause 

* XEQ 
Execution 

10732 Lines output this job. 


Step F-2 

1. Title : Endcard BCD to binary merge 

2. General description: 

This program merges endcard #1 and endcard #2 together and generates a binary tape with 
batteries 0-11. It records on tape the format as shown on Page 28 for endcards. This also makes 
some final validity checks before merging endcard #1 and endcard #2. If the cycle does not meet 
all the parameters shown below it will not write this cycle on tape. Any cycles which are not ac- 
cepted are listed on A3 output by battery and cycle number and the reason not accepted. 


a. Checks to see if card is an endcard. 

b. Checks for (2) cards per half cycle. 
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/ 

99 COL. 5 & 6 

LAST CARD 



'♦DATA 

CARD 



/ *7eq 

CARD 


'♦PAUSE 

CARD 


*ID 

CARD 


a 


Figure 5.1 -Sample deck setup — delete program endcard 


# 1 


c. Checks for (4) cards per cycle and each (4) cards, checks for following: 

1. Same battery number. 

2. Same cycle number. 

3. Cell activity agrees on charge and discharge. 

d. Deletes cycle if there is zero efficiency on endcard #1 
3. Input: 

a. This program uses (3) input tapes. 

i. Endcard #1 tape from output of delete and duplication record elimination (A8). 
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ii. Endcard #2 alpha check tape (B5). 

iii. Endcard tape with codes (A6). 

b. Endcard codes which were made up from listing of endcard analysis program are written 
up on separate tape. Format for punched cards to use on code is as follows: 


Column 

Data 

Description 

5 & 6 

XX 

Battery number 

9 - 12 

xxxx 

Cycle number 

14 & 15 

XX 

Code number 

16 - 18 

XXX 

Time if any 

24 

E 

Signifies endcard 


ii. These cards have to be in order by battery and cycle number, 
iii. Last card has 99 punched in columns 5 and 6 to signal last card. 

4. Output : 

a. Generates binary output tape (A7) containing batteries 0-11. 

b. Generates off-line listing from tape (A3) of all endcard data that is up on tape. Example of 
print out are attached. Request (2) listings of this tape. 

c. Codes all endcard cycles that are requested. 

5. Operating procedures : 

Attach a job card and computer operations tape log card to the front of the binary deck. 

6. Sample deck setup : 

Same as for the data sort (Figure A- 3). 


7. Example of on-line listing for endcard BCD to binary - F-2: 


* Endcard BCD to binary 

* Pause 


* XEQ 

EXECUTION 
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Total number of cycles processed - 5202. 

End of tape writing A3 . Change and push start. 

31986 Lines output this job. 

Step G-2 

1. Title: Endcard binary merge program 

2. General description : 

This program merges all the new data with the old data. It generates (2) binary tapes, one 
with batteries 0-7, and the other binary tape with batteries 8-11. 

3. Input: 

This program uses (3) input tapes. 

a. Output tape of endcard BCD to binary (B8). 

b. Binard endcard tape containing old data from batteries 0-7 (A6). 

c. Binary endcard tape containing old data from batteries 8-11 (A7). 

4. Output: 

Generates (2) output tapes: 

a. Updated binary endcard tape with batteries 0-7 (B6). 

b. Updated binary endcard tape with batteries 8-11 (B7). 

5. Operation procedures : 

Attach a job card and (2) computer operations tape log cards to the front of the binary deck. 

6. Sample deck setup: 

Same as for the data sort (Figure A- 3). 

7. Special considerations: 

Duplicate the (2) binary tapes for spares, in case anything happens to the originals. 
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8. Example of on-line listing for endcard binary merge - G-2: 

* Endcard binary merge 

* Pause 

* XEQ 
Execution 

End of job 

13 Lines output this job. 
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SI SPHI *4 


PZE 

MESSOi * 1 


TSX 

SI F IL I *4 


HTR 

READ 

LAST 

RUNA 

5 


TSX 

SI SPHI *4 


PZE 

MESSE * * 1 


TSX 

$( F IL ) *4 


AXT 

ltl 


SXA 

SAM, 1 

END6 

CAL 

COOE 


SLW 

WKAR 


WTOA 

6 


RCHA 

COMM1 


TCOA 

4 


WEFA 

6 


RUNA 

6 


CAL 

WKAR 


SLW 

MESSG+2 


TSX 

SI SPHI *4 


PZE 

MESSG* *1 


TSX 

SI F IL I *4 


TSX 

SI SPHI *4 


PZE 

MESSF * * 1 


TSX 

S I FILI *4 


HTR 

INIT 

WIERR 

AXT 

9,2 

WIBSP 

8SRA 

6 


WTOA 

6 


RCHA 

COMM1 
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TCOA * 

TRC A *4-2 

TRA IN IT 

BSR A 6 

WTDA 6 

TCOA * 

TRCA W l 

TIX W I 8SP+ 1 » 2 * 1 

WZ TSX $ I SPH! t4 

PZE ME SSC * « 1 

TSX $(FIU,4 

CALL SEXIT 

MESSA BCI 7 , ( 35H READ ERROR ENCOUNTEREOt CALL EXIT. I 

MESSB BCI 7 » ( 35H INVALID CHARACTER IN RECORD ABOVE. I 

ME SSC BCI 7# ( 36H WRITE ERROR ENCOUNTERED, CALL EXIT. I 

MESSD BCI 7 , ( 2 9H PREPARE NEW A5. PRESS START.) 

MESSE BCI 7,(29H LAST A5 . PEOCE SS I NO COMPLETE.! 

HESSE BCI 7 » I 3 7H PREPARE A6 IF PROCESSING INCOMPLETE.) 

MESSG BCI 7, OSH ) 

WKAR 8SS 14 

SIXTY OCT 60 

CODE OCT 11111111X111 

MASK OCT 77 

NINE OCT 11 

TEMP PZE 

SAM PZE 1 

C0MM1 10CD WKAR , , 14 
END 


* PRELIMINARY ANALYSIS FOR OUTCARDS STEPD-1 

♦ 

* PAUSE 

* XEQ 

* CARDS COLUMN 

C***« OUTCARD VALIDITY ANALYSIS 

C**«* INITIALIZATION 
DIMENSION VUOJ 

1 ISW=1 
NSTNG-1 
I STN0=1 
L*5 

C***+ FIRST INPUT TAPE ORIVE L 
REWIND L 
C***» HEADINGS 

2 WRITE OUTPUT TAPE 3,100 
WRITE OUTPUT TAPE 3,99 
L I NE=3 

GO TO (3,10,14) ,NSTNO 
C**** FORMAT STATEMENTS 

99 FORMAT (116H0 BAT CYCLE DAY Y SEQ NO CARDS V 

10LT-H0URS START-TIM END-TIM START-ET END-ET PHASE) 

100 FORMAT (126H1 PRELIMINARY OUTCA 

1RD SUMMARY AND ANALYS 

2 I S) 

101 FORMAT C 12,14, 1 1 , I 3 ,6X,F5.4,5X f 1 1, 9X,10F4.3, III 

102 FORMAT ( 1H I 

1C3 FORMAT ( 1H , 3 1 8 , 1 5 , 1 6 , 1 10 ,F 1 5 .4 , FI 3 .4,F 1 1 .4, F10 . 3 , F 1 1 . 3 , 6X , A3 ) 

1C4 FORMAT ( 12H0 END OF JOB I 
C**** READ RECORD 

3 READ INPUT TAPE L , 101 ,NBAT , NC YC , NY , NO AY , T I ME ,NPHAS , VI 1) , VI 2 ) , VC 31 , 
1V(4),V(5)«V(6) ,VI7) ,V(8),V(9) ,V(10),NSEQ 
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CO TO ( 15*4) • ISTNO 

4 IF I NBAT-99 )5« 21 ,21 

5 IF ( NPHAS— I PHAS) 8,6,8 

6 IF (NCYC-ICYC) 8,7,8 

7 IF (NBAT-IBAT)8,15,8 

8 IF (LINE-55110, 9,9 

9 NSTNO-2 
GO TO 2 

10 IF ( IPHAS)50,50,60 
50 FPHAS-3HCHG 

GO TO 70 
60 FPHAS*3H0I S 

70 WRITE OUTPUT TAPE 3 ,103, I BAT, IC YC, IOAY, I Y, 1SEQ, NOCD, VH,TINT, TAXT, 
1TINE,TAXE,FPHAS 
LINE*LINE*1 

IF (NBAT-IBAT)ll, 12,11 

11 NSTNQ-3 
GO TO 2 

12 IF <NCYC-ICYC)13,14,13 

13 WRITE OUTPUT TAPE 3,102 
LINE-LINE+1 

14 ISW-1 

15 ATCEL-0.0 
AVER-0.0 

DO 17 1*1,10 
IF 4 V( I 1)16,17,16 

16 ATCEL*ATCEL+1*0 
AVER-AVER + VCU 

17 CONTINUE 
AVER-AVER/ATCEL 

€♦♦♦* FIRST CARD OF PHASE OR HALF CYCLE 
IF (ISWI19, 19,18 

18 TINT-TIME 
TINE-AVER 
ISEO-NSEQ 
10AY-N0AY 
IBAT-NBAT 
ICYC-NCYC 
IY-NY 
NOCD-O 
VH-0.0 
IPHAS-NPHAS 
ISW-0 

GO TO 20 

C**** REMA1N01NG CAROS OF PHASE OR CYCLE 

19 OELTI-TIME-TAXT 
VH-VH+DELT I *( ( TAXE+AVER) /2.0) 

20 TAXT-TIME 
TAXE-AVER 
NOCD-NOCDU 
ISTNO-2 

GO TO 3 

C** * «* ENO OF TAPE ROUTINE 

21 REWIND L 

WRITE OUTPUT TAPE 3,104 

CALL EXIT 

END 


* OUTCARD OELETE AND DUP RECORD ELIMINATION STEP E-l 

* PAUSE 

* CARDS COLUMN 



C OUTCARO DELETE AND DUPLICATE RECORD ELIMINATION PROGRAM 

C,... BELOW IS FORMAT EXPLANATION FOR RECORDS TO BE DELETED 
C *1* COL 1 CONTAINS A 0 IF ENTIRE CYCLE IS TO BE DELETED 

C * 2 ♦ COL 1 CONTAINS A \ IF PHASE OF CYCLE IS TO BE OELETED ONLY (OUTCAROS 

C *3* COL 5 AND 6 CONTAINS BATTERY NUMBER 
C *4* COL 8 TO 11 CONTAINS CYCLE NUMBER 

C *5* COL 14 CONTAINS PHASE <IF COL 1 CONTAINS 1 1 ♦ C=CHG, 1 =D ISCHARGE 
C *6* LAST CARO SIGNAL CONTAINS 99 IN COL 5 AND 6 (THIS ENDS ALL DELETIONS! 

C *7* THIS DATA WILL BE PLACED BEHIND DELETE PROGRAM 

C*.*« INITIALIZATION 

DIMENSION NN( 21 I ,MM( 21 1 

2 READ INPUT TAPE 2 , ICO, 10, IBAT, IC YC * IPHAS 
1 REWINO 5 

REWIND 6 

WRITE OUTPUT TAPE 3*103 
I Sw=0 

C.... FORMAT STATEMENTS 

100 FORMAT ( 11,15.15*13) 

101 FORMAT (12*14, 1 1 , 1 3 , 1 5 * IX , 2 I 5 , 1 1 , 1 5 , 12 14 1 

102 FORMAT ( 27HCDUPL ICATE RECORD DELETED * 12 * 1 4 * 1 1 * 1 3, 15 * IX * 2 1 5* 1 1 * 1 5 
1* 1214) 

103 FORMAT ( 1H1 , 45X, 32HD ELETION PROGRAM) 

104 FORMAT ( 13HG END OF JOB) 

105 FORMAT ( 27H0REQUE STED RECORD DELETED * 12 » 14 * 1 1 * 13* IS , IX* 2 1 5* 1 1 * 1 5 
1*1214) 

106 FORMAT ( 36H0REQUEST FOR DELETION OUT OF ORDER ,416) 

107 FORMAT ( 47HOCOULD NOT LOCATE RECORD FOR DELETION REQUEST ,216) 

3 READ INPUT TAPE 5 *1 01 * ( NN( I ) * I* 1 *21 ) 

4 READ INPUT TAPE 5*1 01 *(MM(I ), 1*1,21 ) 

DO 5 1*1,21 

IF ( NN ( I )— MM( I ) >9*5,9 

5 CONTINUE 

WRITE OUTPUT TAPE 3 , 102 , I NN( I) , I = l , 21 ) 

6 DO 7 1=1,21 
NN( I)=MM(I) 

7 CONTINUE 

IF (MM( 1 )— 99)4, 8,8 

8 WRITE OUTPUT TAPE 6 , 1 C 1 * ( MM( I) , I * 1 , 21 1 
WRITE OUTPUT TAPE 3,104 

GO TO 22 

9 IF ( IBAT-99)11,10,10 

10 WRITE OUTPUT TAPE 6 ,101 * ( NN ( I ) * I *1 ,21 • 

GO TO 6 

11 IF ( IBAT-NN(l) >16,12,10 

12 IF ( ICYC“NN(2) >16*13*10 

13 IF (10)15,15,14 

14 IF ( IPHAS-NN(8>)10,15,10 

15 WRITE OUTPUT TAPE 3 ,105 ,(NNU )* 1*1,21 ) 

I SW*1 

GO TO 6 

16 IF ( ISW) 21,21 ,17 

17 READ INPUT TAPE 2 , 100 , ID, 1 1 BAT , I IC YC , I PHAS 
ISW*0 

IF ( IBAT-IIBAT)19,18,20 

18 IF ( ICYC-IICYCU9, 20, 20 

19 I BA T = I I BAT 
ICYC* I IC YC 
GO TO 9 

20 WRITE OUTPUT TAPE 3 ,106, IBAT, 1 1 BAT , ICYC, 1 1 CYC 
GO TO 22 

21 WRITE OUTPUT TAPE 3 ,1 07, I BAT, IC YC 
GO TO 17 
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22 REWIND 5 
END FILE 6 
REWIND 6 
CALL EXIT 
END 

* DATA 


OUTCARD BCD TO BINARY STEP F-l 

PAUSE 
XEQ 
PAUSE 

CARDS COLUMN 

OUTCARD VALIOITY AND BINARY CONVERSION PROGRAM 
TAPE NO 3 IS FOR ERROR MESSAGES 

TAPE NO 6 IS FOR ENDCARD CODES 

TAPE NO 7 IS FOR OUTCARD CODES 

TAPE NO 8 IS FOR OUTCARD OUTPUT 

TAPE NO 15 IF FOR OUTCARD INPUT 

DIMENSION I MODI 10 ) ,FMOC 1 1 6, 350 I ,FMOO( 16 , 550 I . I A 1 2 1 1 
REWIND 8 
NUBAT-0 
REWIND 6 
REWIND 7 
REWIND 15 
REWIND 6 
IND-0 
NOCHG-O 
NODIS'O 
ICNT-0 

C.... TAPE A6 CONTAINS ENDCARD COOES 

2 READ INPUT TAPE 6,101 ,KEDBAT,KEDCYC 

101 FORMAT (16.16) 

READ INPUT TAPE 7, 102 .KODBAT .KODCYC ,KOD,KOOTIM 

102 FORMAT (16,16.13,13) 

C.... TAPE B15 CONTAINS OUTCARD TAPE 

6 READ INPUT TAPE 1 5, 103, ( I A( I ) , I -1 ,21 ) 

103 FORMAT (12, 14, II, 13, 15.1X, 215, II, 15, 1114, ID 

C.... DETERMINE IF THIS IS AN OUTCARD 

IF ( 1 A ( 8 )— 1 ) 3, 3,4 

3 IF ( IA(21)-4)5,5,4 

C.... ILLEGAL OUTCARD ROUTINE 

4 WRITE OUTPUT TAPE 3,104 

104 FORMAT (47H0CAR0 BELOW CONTAINS ILLEGAL PHASE OR SEQUENCE.) 
WRITE OUTPUT TAPE 3 ,105 , ( IA(I) , I- 1 , 21 > 

105 FORMAT I 1H ,14,16,13,15,18,217,13,17,1116,13) 

GO TO 6 

5 IMOD( 9) *0 

7 NUBAT»IA( l) 

NUCYCMAI2) 

C.... DETERMINE IF CYCLE SHOULD HAVE OUTCARO COOE 

8 IF ( KODBAT-99) 9, 1 1,11 

9 IF ( KODBAT- I A( 1))13,10,11 

10 IF ( KODCYC- I A( 21)13,12,11 

12 IMOD( 7) “KOD 
IMOO( 8)«K00TIM 

READ INPUT TAPE 7,102 .KODBAT, KODCYC .KOD.KOOTIM 
GO TO 14 

11 I MOD( 7) *0 
I MOD I 8)«0 
GO TO 14 

13 WRITE OUTPUT TAPE 3,106 


106 FORMAT ( 44HC0UTC ARD DATA DOES NOT EXIST FOR CODE BELOW.) 

WRITE OUTPUT TAPE 3 ,1 02 , KOD BAT , KODC YC , KOD, KODT I H 
REAO INPUT TAPE 7 , 102 , KODBAT , KOOCYC , KOO , KODT IM 
GO TO 8 

C.... FILL IMOD ARRAY WITH BAT, CYC, YE AR , DAY AND SEQ 

14 1 MODI 1 ) *0 
DO 15 1-2,5 
lM00m = IAU-l) 

15 CONTINUE 
IM00C6) -I A( 21 ) 

C.... CHECK TO SEE IF OUTCARD SHOULD HAVE LAST PREVIOUS BAD ENDCARD 

C.... CYCLE NUMBER CHANGED OR WROTE IN AT THIS TIME 

16 IF ( KEDBAT-99) 17,21 ,21 

17 IF iKEDBAT-IAm )19, 18,21 

18 IF ( KEDC YC-IAI 2) 120,20,21 

19 READ INPUT TAPE 6 , 101 , KEOBA T,KEDC YC 
GO TO 16 

20 I MOO ( 9 ) =KEDC YC 

READ INPUT TAPE 6,101 , KEOBA T, KEDCYC 
GO TO 16 

21 IF ( IA(8M22,22,23 

C.... PACKING ARRAY FOR CHARGE HALF 

22 N0CHG=N0CHG+1 

FMuC C 1 , NOCHG ) - I A( 8) 

FMOC ( 2 , NOCHG ) = I A ( 5 ) 

FM0CC2, NOCHG )=FMOC< 2, NOCHG) *.001 
FMOC ( 3, NOCHG ) = I AC 6) 

FMOC ( 3 , NOCHG ) = FMOC ( 3 , NOCHG .0001 
FMOC ( 4 , NOCHG ) = I AC 7) 

FMOC i 4, NOCHG) =FMOC( 4, NOCHG) *.001 
FMOC < 5 « NOCHG ) - 1 At 9) 

FMOC ( 5*N0CHG)=FM0CC 5, NOCHG) *.001 
FMOC ( 6 , NOCHG ) = I A ( 10 ) 

FMOC (6, NOCHG) =FMOC ( 6 , NOCHG ) *.01 

DO 24 K = 7 , 1 6 

FMOC (K, NOCHG )=I AC K+4) 

FMOC ( K, NOCHG) =FMOC(K, NOCHG) *.001 

24 CONTINUE 
GO TO 25 

C.... PACKING ARRAY FOR DISCHARGE HALF 

23 NOD I S = NODI S+ 1 

F MOD ( 1 , NOD IS)-IA(8) 

FMOD ( 2 , NOD IS)=IA(5) 

FMOD ( 2 , NOD I S ) =FMOD { 2 , NODI S ) *.00 1 
FMOD ( 3 , NOD IS)-IAC6) 

FMODC 3,NODIS)=FMODC3, NODI S) *.0001 
FM0DC4, N0DIS)=IA<7) 

FMOD (4, NOD I S > =FMOO( 4, NODI S )* .001 
FMOD ( 5,N0DIS)=IA(9) 

FMODC 5 , NODI S ) =F MOD (5, NOD IS) *.001 
f MOD ( 6 ,NOD IS)-IA(IO) 

FM0D(6,N0DIS) =FMOD (6, NODI S )*.01 
DO 26 K=7, 16 
FM0D(K,N0DIS)=IACK+4) 

F MOD ( K , NOD I S) =FMOD( K, NODI S) *.001 

26 CONTINUE 

C.... READING NEW OUTCARD FROM TAPE 

25 READ INPUT TAPE 1 5 , 103 , ( I A ( I) , I -1 , 21 ) 

IF ( IA<1)-99)27,41,41 

C.... CHECK TO SEE IF CARD READ IN IS A OUTCARD 

27 IF ( IA(8)-1)28,28,29 

28 IF ( IA( 21)— 4)30,30,29 
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C... ILLEGAL OUTCARD ROUTINE 

29 WRITE OUTPUT TAPE 3,104 

WRITE OUTPUT TAPE 3 ,105 , 1 1 A III , I -1 , 21 1 
GO TO 25 

C.... CHECK TO SEE IF A NEW BATTERY NUM8ER IS ON OUTCARD 

30 IF I I A ( 1 )-NUBAT)33, 31,33 

31 IF 4 I A I 2 I-NUC YCI33,32,33 

32 IF ( IAI8 > >22,22,23 

C.... NEW BATNO HAS BEEN READ IN, START VALIOITY CHECK 

33 IF I NOCHG) 60, 61 , 60 

60 IF (NOCHG-5) 38, 66,66 

61 IF ( IMODI 7>-21>38,66,62 

62 IF I I MOD (7)-23) 38,66,63 

63 IF I IMOO I 7)-26) 38,66,38 

66 IF (NOOIS)67,68,67 

67 IF (NODI S-5>38,39,39 

68 IF ( 1M00I 71-21 >38,39,69 

69 IF ( I MUD (71-23)38,39,70 

70 IF ( IMUOm-26138,39,38 

C.... ERROR ROUTINE FOR CYCLES WITH LESS THAN 5 CAROS 

38 WRITE OUTPUT TAPE 3,109 

109 FORMAT ( 52HGFOLLOWI NG CYCLE HAS LESS THAN 5 CAROS AND NOT COOEO) 
WRITE OUTPUT TAPE 3 ,110, IM00(2> , IMOOI 3) 

110 FORMAT ( 14HCBAT TERY NO. ,I2,12H CYCLE NO. ,141 
GO TO 50 

C.... TAPE 8 IS USED FOR OUTPUT TAPE 

39 ICNT *NOCHG*NOD I S 
IF I NOCHG) 76,76,77 

76 WRITE TAPE 8, INO, ICNT, I IMODI 1 1, 1«1 ,9) , I IFMODI I • J) , I»l , 161 • J-l.NOOI 
IS) 

GO TO 50 

77 IF I NOOI S ) 78, 78, 75 

78 WRITE TAPE 8, I NO, ICNT ,11 MOO 1 1 )« 1*1 ,9) ,1 IFMOCI I,J)»I*1»16)»J*1 ,NOCH 
IG) 

GO TO 50 

75 WRITE TAPE 8, INO, ICNT, I IMOO 1 1 ) , 1*1 ,9 ) , 1 1 FMOCI I , J I , 1*1 • 16) , J»1 .NOCH 
1G),( (F MODI K,L> ,K-1, 16 >,L«1, NOOI S) 

50 ICNT *0 
NOCHG=0 
NOD I S*0 

IF ( IA(1)-NUBATI42,43,42 

42 IMOOI 9 1 *0 

43 IF I IND-l ) 7 , 44,44 
C.... ENO OF JOB 

44 WRITE OUTPUT TAPE 3,111 

111 FORMAT (16HCEN0 OF PROGRAM.) 

REWIND 6 

REWINO 7 
REWIND 15 
END FILE 8 
REWINO 8 

300 FORMAT (132H0ID BAT CYC Y DAY SAB CP TIME 0EL-T1 AVEP 

1WR AVECUR PRESS VO VI V2 V3 V4 V5 V6 V7 V 

2 8 V 9 ) 

301 FORMAT ( 1H , 12 , 1 3 , 1 5 , 1 2 , 1 4 , 1 2 , 1 3 , 14, 1 5 ,F 3.0.F7. 3 , F8 .4, 2F7.3.F6.2, 
110F6.3) 

NUBAT-0 

201 WRITE OUTPUT TAPE 3,303 

303 FORMAT ( IH1 ,40X ,41HB I NARY TAPE CONVERTEO TO BCD FOR 0UTCAR0S1 

202 READ TAPE 8 , I NO, ICNT, I IMODI 1 ) ,1*1 ,9 ) , 1 1 FMOOI I , J I , I* 1, 16) , J*l» ICNT ) 
K*1 

IF ( NUB AT- IMOOI 2 1)203,204,203 
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o n o no on 


203 NUBA T=1 MODI 2) 

WRITE OUTPUT TAPE 3,303 
2C* IF (FMODU, 11 )205,205, 208 
2C5 WRITE OUTPUT TAPE 3,300 
00 2C7 1*1, ICNT 
K*I 

IF (FMGDC1, 11)206,206, 208 

206 WRITE OUTPUT TAPE 3 ,3C 1 , UMODt N ) ,N*l ,9 1 , ( FMODt J, I ) , J = l, 16) 

207 CONTINUE 
GO TO 212 

208 WRITE OUTPUT TAPE 3,300 
DO 210 I=K, ICNT 

209 WRITE OUTPUT TAPE 3 ,30 1 , I IMOD ( N ) ,N= 1 , 9) , C FMODI J , I ) , J*1 , 16) 

210 CONTINUE 

212 IF ( INO I 202,202,213 

213 REWIND 8 
21* CALL fcXI I 

C.... LAST RECORD OF LAST TAPE HAS BEEN ENCOUNTERED 
*1 IND=l 
GO TO 33 
ENO 


* OUTCARD BINARY MERGE 

* PAUSE 

* XEO 

* CAROS COLUMN 

C.... PLACE BINARY TAPE TO BE MERGED ON A5 

C.... PLACE OLD DATA TAPE FOR BAT 0 TO 7 ON A6 
C.... PLACE OLD DATA TAPE FOR BAT 8 TO 11 ON A7 
C.... PLACE BLANK TAPE ON B6 FOR MERGED BAT 0 TO 
C.... PLACE BLANK TAPE ON B7 FOR MERGED BAT 8 TO 
C.... INITIALIZATION 
10 ISW=C 
KSW=0 

C.... II IS BINARY TAPE TO BE MERGED 


STEP G-l 


7 

11 


11 = 5 

REWIND II 

C.... J1 IS BAT C TO 7 OLD DATA, J2 IS BAT 8 TO 11 OLD DATA 
Jl=6 
J2 = 7 

REWIND J1 
REWIND J2 

C.... Ml IS BAT 0 TO 7 MERGED NEW DATA, M2 IS BAT 8 TO 11 MERGED NEW DATA 
M 1 = 16 
M2 = l 7 
REWIND Ml 
REWIND M2 
GO TO 11 

.... READ TAPE ROUTINES *** 

.... READ ROUTINE FOR TAPE TO BE MERGEO 

DIMENSION I AI9) ,AA1 1 6 ,*00 ) , I B 1 9 ) , BBC 16, *00) 

1 READ TAPE II,INB,ICB,(IB(N),N=1,9), ( I BB t N,M ) , N= 1 , 16 ) ,M= 1 , ICB) 

GO TO 112, 25, 33, *5), LI 


.... READ ROUTINE FOR OLD DATA 

2 REAO TAPE Jl, INA, ICA, ( IAIN) ,N=1 ,9) , ( (AA(N,M),N=1«16),M = 1, ICA) 
GO TO 1 13,20) ,L2 


.... WRITE 
.... WRITE 
3 WRITE 


TAPE ROUTINES *** 

ROUTINE FROM AA ARRAY 

TAPE M1,INA,ICA,< I A IN), N= 1,9) , ((AA(N.M) , N=1 , 16 ) , M=1 , ICA) 
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GO TO i 19, 30, 35, 39, 48), L3 

C 

C.... WRITE ROUTINE FROM 88 ARRAY 

4 WRITE TAPE Ml • IN8 , IC0 , ( I B t N I , N* 1 ,9 ) , C ( BB< N,M | , N*1 1 16 1 ,M»1 , ICB) 
GO TO (23,31),L4 

•••• MAINLINE PROGRAM 

11 L 1 3 l 

GO TO l 

12 L2«l 

GO TO 2 

13 I ABAT* I A ( 2 I 

14 IF ( ISW) 15*15*27 

15 IF ( INA ) 16» 16 f 36 

16 IF (KSWJ17, 17,18 

17 IF ( IABAT- 1 A ( 2 ) ) 21 , 18 , 49 

18 L 3*1 

GO TO 3 

19 L2-2 

GO TO 2 

20 GO TO 14 

C.... NEXT BATTERY ENCOUNTERED ON Jl, CHECK FOR SAME BAT ON II 

21 IF I IABAT- 1 8( 2 ) 1 13,22,50 

22 L4*l 

GO TO 4 

23 IF I IN6 ) 24,24,26 

24 Ll*2 

GO TO 1 

25 GO TO 21 

26 KSW-1 

GO TO 13 

C.... EXIT ROUTINE 

27 IF ( INA ) 16, 16, 28 

28 IF ( KSW I 29,29, 34 

29 1NA-0 
L3*2 

GO TO 3 

30 1.4*2 

GO TO 4 

31 IF C INS 1 32, 32, 35 

32 Ll*3 

GO TO 1 

33 GO TO 30 

34 L3-3 

GO TO 3 

35 PRINT 100 

100 FORMAT ( 12H0 END OF JOB) 

END FILE Ml 
REWINO Ml 
REWIND II 
REWIND Jl 
CALL EXIT 

C.... END 8AT 7 ROUTINE 

36 IF ( KSW ) 37 , 37,47 

37 IF I IB(2)-7)51, 38,47 

38 INA-O 
L3* 4 

GO TO 3 

39 1NA*1NB 
ICA* ICB 

DO 40 N-1,9 
IAI N)»IBf N) 
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40 CONTINUE 

DO 42 N*i,ICB 
DO 41 M-1,16 
AA(M,N)*BB(M,N) 

41 CONTINUE 

42 CONTINUE 

43 IF ( INB ) 44,44, 46 

44 Ll*4 

GO TO 1 

45 GO TO 37 

46 KSW«1 

47 INA*i 
L 3= 5 

GO TO 3 

48 ISW*1 

END FILE Ml 
REWIND MI 
REWIND J1 
Jl*J2 
M1*M2 
GO TO 12 


C.... PROGRAM ERROR STATEMENTS 


49 

PRINT 

101 






101 

FORMAT 

(40HO 

ERROR 

IN 

STATEMENT 

17, IMPROPER 

RESULTS) 


GO TO 

35 






50 

PRINT 

102 






102 

FORMAT 

{ 40 HC 

ERROR 

IN 

STATEMENT 

21t IMPROPER 

RESULTS) 


GO TO 

35 






51 

PRINT 

103 






103 

FORMAT 

(40H0 

ERROR 

IN 

STATEMENT 

37, IMPROPER 

RESULTS) 


GO TO 35 
END 
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ftl&SYS 

$10 PUP STEP B-2 

SPAUSE 

SEXECUTE SORT 

F I LE, INPUT/2, BLO/14, RE E/1 , MOD/D, DENSITY/H 
F IL E * OUT ,BL0/14, MOO/D , DEN/H 
RECORD ,TYPfc/F,LEN/ (14) , FIELD/ 16,69, 1) 
SORT, FILE/2, Oft DER/2*F IE/I1A,3AI ,SEQ/S 
CHANNELS, I NP/A, MERGE/! A, B) 

OPT, TAP 

REMARK ENDCARO 1 DATA SORT 
END 

♦ END TAPE 


SIBSYS 

$10 PUP STEP B-3 

$PAUSE 

$£X ECUT E SORT 

FILE, I NPUT/4,BL0/14,REE/l, MOO/O, DEN/H 
FILE, OUT ,BL 0/1 4, MOD/D, DEN/H 
RECORO , T YPE/F , LEN/ ( 14) ,F I ELD/ 1 6 ,69 , i I 
SUR T ,F ILE/4,0RD6K/2«FIE/(1A,3A)« SEO/S 
CHANNELS, I NP/A, MERGE/ < A, 8) 

OPT t TAP 

REMARK ENOCARO 2 OATA SORT 
END 


♦ ALPHA CHECK PROGRAM FOR ENDCAROS 1 

* PAUSE 

* XEQ 

* CAROS COLUMN 

• FORMAP 

• FAP 


IN IT 

ETTA 

NOP 



AXT 

14,1 


STZ 

WKAR*14«l 


TIX 


READ 

RTDA 

5 


RCHA 

C0MH1 


ICO A 

♦ 


TRCA 

ROERR 


TEFA 

END5 


TRA 

VALCK 

ROERR 

AXT 

9,2 

ROBSP 

BSRA 

5 


RTOA 

5 


RCHA 

C0MH1 


TCOA 

* 


TRCA 

*♦2 


TRA 

ROERR-2 


TIX 

ROBSP, 2,1 


TSX 

$C SPH 1 ,4 


PZE 

MESSA.,1 


TSX 

$ ( F I L 1 , 4 


CALL 

$EXIT 

VALCK 

AXT 

14,1 


AXT 

6,2 


CAL 

WKAR* 14, 1 


SLW 

TEMP 


STEP C-2 


B-16 


CK1 


CK2 


ERROR 


WRITE 


END5 


LAST 


EN06 


ANA 

MASK 

LAS 

SIXTY 

TRA 

ERROR 

TRA 

CK2 

LAS 

NINE 

TRA 

ERROR 

TRA 

CK2 

CAL 

TEMP 

ARS 

6 

SLW 

TEMP 

TIX 

CK1.2.1 

T I X 

VALCK+1 , 1 » 1 

TRA 

WRITE 

CAL 

WKAR 

SLW 

MESSG+2 

CAL 

TEMP 

SLW 

MESSG+5 

TSX 

* ( SPH ) ,4 

PZE 

MESSG, , 1 

TSX 

SC F IL ) » A 

TSX 

SISPHI ,4 

PZE 

ME SSB « » I 

TSX 

$ ( F IL ) » 4 

TRA 

INI T 

WTOA 

6 

RCHA 

COMM1 

TCOA 

* 

ETTA 

TRA 

END6 

TRCA 

WIERR 

TRA 

INIT 

LXA 

SAM* I 

TIX 

*+2,1,1 

TRA 

LAST 

SXA 

SAM, 1 

RUNA 

5 

TSX 

$ I SPH ) , 4 

PZE 

ME SSO * , 1 

TSX 

SC F IL ) ,4 

HTR 

READ 

RUNA 

5 

TSX 

SC SPH ) , 4 

PZE 

MESSE , , 1 

TSX 

S ( F I L ) , 4 

AXT 

1,1 

SXA 

SAM, 1 

CAL 

CODE 

SLW 

WKAR 

WTDA 

6 

RCHA 

COMM1 

TCOA 

♦ 

WEFA 

6 

RUNA 

6 

CAL 

WKAR 

SLW 

MESSG+2 

TSX 

$( SPH 1,4 

PZE 

ME SSG , , 1 

TSX 

S ( F IL 1 , 4 

TSX 

SC SPH 1 #4 

PZE 

ME SSF , , 1 

TSX 

SC FIL ) ,4 

HTR 

INIT 



WIERR 

AXT 

9,2 

Ml BSP 

BSRA 

6 


WTDA 

6 


RCHA 

COMMI 


TCOA 

* 


TRCA 

♦ ♦2 


TRA 

1 NIT 


BSRA 

6 


WTDA 

6 


TCOA 

* 


TRCA 

WZ 


TJX 

WI B SP+ X , 2 , 1 

WZ 

TSX 

$ ( SPH 1 , 4 


PZE 

MESSC , , 1 


TSX 

SCFIL) ,4 


CALL 

SEXIT 

MESSA 

BCI 

7 * ( 3 5H READ ERROR ENCOUNTERED, CALL EXIT.) 

MESSEJ 

BC I 

7 , ( 35H INVALID CHARACTER IN RECORD ABOVE.) 

MfcSSC 

BCI 

7 , I 36H WRITE ERROR ENCOUNTERED, CALL EXIT. 

MESSD 

BCI 

7,1 29H PREPARE NEW A5. PRESS START.) 

MESSE 

BC i 

7,1 29H LAST A5.PEOCE SSI NG COMPLETE.) 

MESSF 

BCI 

7, ( 37H PREPARE A6 IF PROCESSING INCOMPLETE 

MESSG 

BCI 

7*1 35H ) 

WKAR 

BSS 

14 

SIXTY 

OCT 

60 

CODE 

OCT 

illinium 

MASK 

OCT 

77 

NINE 

OCT 

11 

TEMP 

PZE 


SAM 

PZE 

1 

COMM1 

IOCO 

END 

WKAR,, 14 


* ALPHA CHECK PROGRAM FOR ENDCARDS 2 STEP C-3 

* PAUSE 

♦ XEQ 

♦ CAROS COLUMN 

* FORMAP 

♦ FAP 


IN I T 

ETTA 

NOP 

AXT 

14,1 


SFZ 

WKAR+14 , 1 


TIX 

*-1,1,1 

REAO 

RTDA 

5 


RCHA 

COMMI 


TCOA 

♦ 


TRCA 

RDERR 


TEFA 

ENDS 


TRA 

VALCK 

ROERR 

AXT 

9,2 

RDBSP 

BSRA 

5 


RTDA 

5 


RCHA 

COMMI 


TCOA 

* 


TRCA 

*♦2 


TRA 

ROERR-2 


TIX 

RDBSP, 2,1 


TSX 

$<SPH),4 


PZE 

MESSA,, 1 


TSX 

$( F I L ) ,4 



CALL 

SEXIT 

VALCK 

AXT 

U,l 


AXT 

6,2 


CAL 

WKAR *14,1 


SLW 

TEMP 

CK1 

ANA 

MASK 


LAS 

SIXTY 


TRA 

ERROR 


TRA 

CK2 


LAS 

NINE 


TRA 

ERROR 


TRA 

CK2 

CK2 

CAL 

TEMP 


ARS 

6 


SLW 

TEMP 


TJX 

CK1,2,1 


T I X 

VALCK* 1 ,1,1 


TRA 

WRITE 

ERROR 

CAL 

WKAR 


SLW 

MESSG*2 


CAL 

TEMP 


SLW 

MESSG*5 


TSX 

MSPH),4 


PZE 

MESSG, , 1 


TSX 

$ ( F I L 1 ,4 


TSX 

% ( SPH 1,4 


PZE 

MESSB , , 1 


TSX 

S IF 1 L ) , 4 


TRA 

INIT 

WRITE 

WTDA 

6 


RCHA 

COMM1 


TCOA 

ETTA 

* 


TRA 

END6 


TRCA 

WI ERR 


TRA 

INIT 

ENDS 

LX A 

SAM, I 


TIX 

**2,1,1 


TRA 

LAST 


SXA 

SAM, 1 


RUNA 

5 


TSX 

S ( SPH I ,4 


PZE 

ME SSD , , 1 


TSX 

$! FIL ! *4 


HTR 

REAO 

LAST 

RUNA 

5 


TSX 

$ ( SPH ) , 4 


PZE 

MESSE , , 1 


TSX 

$ ( F IL ) , 4 


AXT 

ltl 


SXA 

SAM, 1 

EN06 

CAL 

CODE 


SLW 

WKAR 


WTDA 

6 


RCHA 

COMM1 


TCOA 

♦ 


WEFA 

6 


RUNA 

6 


CAL 

WKAR 


SLW 

MESSG*2 


TSX 

t ( SPHI ,4 


PZE 

MESSG, ,1 
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o # * 



TSX 

$<FIL),4 


TSX 

$ I SPH ) , 4 


PZE 

MESSFttl 


TSX 

$(FIL),4 


HTR 

IN I T 

WIERR 

AXT 

9,2 

WIBSP 

BSRA 

6 


WTDA 

6 


RCHA 

CGMM1 


TCOA 

* 


TRCA 

*♦2 


TRA 

INIT 


BSRA 

6 


WTOA 

6 


TCOA 

♦ 


TRCA 

WZ 


T I X 

WlBSP+1,2,1 

1 1 

TSX 

$ I SPH 1,4 


PZE 

MESSC,, 1 


TSX 

$ CFIL ) ,4 


CALL 

SEXIT 

HESSA 

BC! 

7 * ( 35H READ ERROR ENCOUNTERED, CALL EXIT.) 

HESSB 

BCI 

7,1 35H INVALID CHARACTER IN RECORD ABOVE.) 

MESSC 

BC I 

7 , I 36H WRITE ERROR ENCOUNTERED, CALL EXIT. 

MESSO 

BCI 

7 , ( 29H PREPARE NEW A5. PRESS START.) 

HESSE 

BCI 

7 , 1 2 9H LAST A5. PE0C6SSING COMPLETE. 1 

HESSE 

BCI 

7, < 37H PREPARE A6 IF PROCESSING INCOMPLETE 

HESSC 

8CI 

7, ( 35H ) 

UK AR 

BSS 

14 

SIXTY 

OCT 

60 

COOE 

OCT 

i ill i mu il 

MASK 

OCT 

77 

NINE 

OCT 

11 

TEMP 

PZE 


<AII 

07C 

i 

COHHl 

IOCO 

ENO 

WKAR t t 14 


* PRELIMINARY ANALYSIS FOR ENDCAROS 1 STEP D-2 

PAUSE 
XEQ 

**** ENOCARO 1 DATA VALIDITY ANALYSIS *REA* 

DIMENSION ICHTII13) ,NCHT 1 1 13 ) , IDST I (13 ) t NOST 1 1 13 > , l EEI 1 3 1 .NEEC13 » 
DIMENSION ICE ( 1 3) «NCE ( 13 1 , ICHWHI13I .NCHMHI13I 
DIMENSION IDSMHl 13) .NDSWHI 13 ) * I UPS I ( 131 
C**»* BATTERY 0 TEST PARAMETERS 
ICHTim >32500 
NCHTI ( 1 1*500 
IDSTim-5000 
NOSTIU»-150 
1EEI1I-700 
NEEII)-30 
ICEIll-770 
NCE<1)»30 
ICHWHt I I >28 AO 
NCHWHt 11*50 
IDSWHI 11-1960 
NDSWHI 1 ) * 40 

iupsim-0 

C***** BATTERY 1 TEST PARAMETERS 
ICHTII 2) >32 500 
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NCHTI(2)»500 
1DST I ( 2 ) *20000 
N0STK2I-3C0 
I EE ( 2 1 *720 
NEE ( 21*25 
ICE(2 >*770 
NCE (21*25 
1 CHWH( 2 ) *2820 
NCHtfH( 21*50 
IDSWH( 2 ) =2020 
NDSWH( 2 ) =40 
I UPSI ( 2 1 *0 

C**** BATTERY 2 TEST PARAMETERS 
ICHTI ( 3) =32 500 
NCHT 1(3) =5G0 
IDSTI(3)=1250 
NOS T 1(3 ) *25 
I EE ( 3 ) =675 
NEE ( 3 ) *25 
ICE ( 3 ) =770 
NCE ( 3 ) *25 
I CHWH( 3 ) =2790 
NCHWH( 3 ) =50 
1 DSWH( 3 ) =1870 
NDSHH( 3)=40 
IUPSI (3 ) =0 

C***» BATTERY 3 TEST PARAMETERS 
ICHTI ( 41=12900 
NCHT 1(4) *600 
I0ST1 ( A) *5000 
NDSTI(4)*150 
I EE ( 4) =915 
NEE ( 4) =25 
ICE ( 4) =975 
NCE ( 4 ) =25 
ICHWH( 4) =2220 
NCHWH( 4) =150 
I OSWH( 4 ) =2050 
NDSWH ( 4 ) = 100 
I UP S I ( 4) =0 

C**** BATTERY 4 TEST PARAMETERS 
I CHT I ( 5 ) = 1 7000 
NCHT I ( 5 ) =4000 
I OST I ( 5 ) =5000 
NOST I ( 5 ) =75 
I EE ( 5) =600 
NE E ( 5 ) = 100 
ICE ( 5 ) =900 
NCE( 5 ) =100 
I CHWH ( 5 ) =2600 
NCHWH( 5 ) =200 
I DSWH( 5 ) =1985 
NDS WH( 5 ) =40 
IUP S I ( 5 ) =0 

C**$* BATTERY 5 TEST PARAMETERS 
ICHT 1 ( 6 ) =5150 
NCHT I ( 6 ) =200 
IDST 1 ( 6 ) =5000 
NOST I ( 6 ) =75 
IEE 1 6) =915 
NEE ( 6) =25 
ICE (6) =985 



NCEC6)*25 
ICHWHf 6) *2225 
NCHWHf 6 1*100 
IDSWHf 6 )*2030 
NDSWHf 6 )*50 
I UP SI ( 6 ) *0 

C**** BATTERY 6 TEST PARAMETERS 
ICHT I C 7 1 * 19400 
NCHT 1(7) *500 
I DST If 7 ) * 5000 
NDSTH7)«75 
I EE f 7 ) *895 
NEE < 7) *30 
ICE ( 7 1 *955 
NCE I 7 1 *30 
ICHWHf 7 1 *2270 
NCHWHf 7) * 100 
IDSWHf 7 1*2030 
NDSWHf 71*50 
IUPSI ( 7) *0 

C**»* BATTERY 7 TEST PARAMETERS 
ICHT 1(8 1*65000 
NCHT I f 8) *1000 
IOST 1(0 ) *5000 
NOSTI ( 8) *75 
I EEC 8) *350 
NEE 18) *25 
ICE ( 81*385 
NCE f 8 )*25 
ICHWHf 8)*5725 
NCHWHf 8 ) *50 
I DSWHI 8 ) *19 75 
NDSWHf 81 *40 
IUPSI I 8) *0 

C**»* BATTERY 8 TEST PARAMETERS 
ICHT 1(9 ) » ICOOO 
NCHT II 9 1 *2000 
IOST I ( 9 ) *5000 
NOSTI ( 91*75 
lEEf 9) *800 
NEEf9)*90 
ICE 191*870 
NCE f 9) *90 
I CHWHf 9 ) *2300 
NCHWHf 9) *175 
IDSWHf 9) *1990 
NDSWHf 9 )*40 
IUPSI 191 *0 

C**»* BATTERY 9 TEST PARAMETERS 
ICHTIf 10) *28000 
NCHT If 10) *3000 
IOST I f 101*5000 
NDSTIf 10)*75 
iEEf 101*760 
NEEf 101*50 
ICEt 101*830 
NCE f 10 ) *50 
ICHWHf 10 ) *2600 
NCHWHf 10) *250 
lOSWHf 10) *1985 
NDSWHf 10) *40 
IUPSIf 10)*0 


c**«* battery 10 TEST PARAMETERS 
ICHTI ( 1 1 ) =25000 
NCHT 1(11) *375 
IDSTII U)=8667 
NDSTK 111=1000 
1 EE < 11 ) =800 
NEE(11)=100 
ICE (111=900 
NCE ( 11) =100 
ICHMHI 111=4400 
NCHWHI 111=200 
IDSWH( 111=3450 
NOSWHI 111=200 
IUPSM 11»=1 

BATTERY 11 TEST PARAMETERS 

ICHT I ( 1 2 ) =91 50 

NCHTII 12)=300 

IDSTII 12)*9C50 

NDSTK 12)=500 

I EE ( 12 ) =865 

NEE ( 12 ) =100 

ICEI 121=985 

NCE( 121=100 

ICHWH< 121=4075 

NCHWHI 121=100 

10SWHI 121*3520 

NDSWHC 121*200 

IUPSII 12)=1 

KBAT=88888 

KCYC=88888 

K = 2 

JJ=0 

KK* 1 

PARAMETER DATA LISTING 
WRITE OUTPUT TAPE 3,200 
DO 300 NN=1 » 12 
NNN=NN-1 

WRITE OUTPUT TAPE 3 ,201 ,NNN, ICH T I ( NN) , NCHT I C NN) , I DST I( NN ) , 
lNDSTI(NN) , IEE( NNI ,NEE(NN) ,1CE(NN) ,NCE(NN) , ICHWH(NN) , NCHWHI NN) , 
2IDSWHINN) .NDSWHINNI , I UPS I INN) 

300 CONTINUE 

WRITE OUTPUT TAPE 3,202 

98 FORMAT 1 8 1H0 SAT CYCLE YEAR DAY TIME EEF WAT 

IT— HR CEF CO NO P> 

99 FORMAT I 1H ,10181 

100 FORMAT I 12, 14, 11 ,13, IX, 15, 12X, 13, 5X, 15, 30X, 13, II, III 

1C1 FORMAT ( 40H0 ILLEGAL CARD NUMBER FOR FOLLOWING CARO) 

102 FORMAT ( 40H0 ILLEGAL YEAR OR DAY FOR FOLLOWING CARO) 

103 FORMAT ( 34H0 ILLEGAL PHASE FOR FOLLOWING CARO) 

104 FORMAT (32H0 TIME DURATION OUT OF LIMITS BY.I6.15H ON CARO BELOW) 

105 FORMAT (29HC WATT-HOURS OUT OF LIMITS BY.I6.15H ON CARO BELOW) 

106 FORMAT I 54H0 ENERGY OR CURRENT EFF. SHOULD BE ZERO FOR CARO BELOW} 

107 FORMAT I 30H0 ENERGY EFF. OUT OF LIMITS BY,I6,15H ON CARO BELOW) 

108 FORMAT I31H0 CURRENT EFF. OUT OF LIMITS BY.I6.15H ON CARO BELOW} 

110 FORMAT I34H0 INCORRECT NUMBER OF CARDS ON BAT.I4.6H CYCLE, 16) 

111 FORMAT 1 3 8H0 BOTH CARDS ARE CHARGE OR DIS. ON BAT.I4.6H CYCLE, 16} 

112 FORMAT 1 3 2 HO ALL DATA PROCESSED, EX IT CALLEO) 

2C0 FORMAT! 117H1 BAT CHG-TI LIMIT DIS-TI LIMIT EEF LI 

INI T CEF LIMIT CHG-WH LIMIT DIS-WH LIMIT CYC-TYPE) 

201 FORMAT I 1H0.1418) 

2C2 FORMAT I 1H1 , 40X .41H0UT OF LIMITS DATA FOR ENDCARDS 1 *REA*> 

C***» READ ENDCARD 1 INTO STORAGE 
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1 READ INPUT TAPE 5, 100 ,NBAT ,NCYC, NY. NOAY, NTIME,NEEFE,NWH, NCEFE* 
INC *NPHAS 

IF I NBAT-99) 2*33*33 

2 IF ( NC-1 ) 3, 5* 3 

3 ISTNO-l 

WRITE OUTPUT TAPE 3*101 
A WHITE OUTPUT TAPE 3*98 

WRITE OUTPUT TAPE 3,99 * NBA T , NCYC * NY, NOAY , NT I ME ,NEEFE , NWH, NC6FE* 
INC * NPHAS 

GU TO ( 25*33 ) * I STNO 

5 IF ( NY-5) 7* 7* 6 

6 ISTNO-l 

WRITE OUTPUT TAPE 3,102 
GO TO 4 

7 IF (NDAY- 366)8*8*6 

8 IF (NPHAS- 1)22*10*9 

9 ISTNO-l 

WRITE OUTPUT TAPE 3*103 
GO TO 4 

C+*+* DISCHARGE PHASE ANALYSIS 

10 N-N8AT+1 

I DEV - IOSTI i NJ-NTIME 
I ABDEV-XABSF ( IOEV) 

IF ( NDST I ( N )-I ABDEV) 11*12*12 

11 ISTNO-l 

WRITE OUTPUT TAPE 3*104, IOEV 
GO TO 4 

12 IOEV-IOSWHINI-NWH 

I A8DE V-XABSF ( IOEV) 

IF (NOSWHI N )-I ABOEV) 13*14*14 

13 ISTNO-l 

WRITE OUTPUT TAPE 3*105*I0EV 
GO TO 4 

14 IF (IUPSI(N))15*15*18 

15 IF I NEEFE ) 1 7* 16* 1 7 

16 IF (NCEFE)17,25,17 

17 ISTNO-l 

WRITE OUTPUT TAPE 3*106 
GO TO 4 

18 IDEV-I EEINI-NEEFE 

I A8DEV-XABSFI IOEV) 

IF ( NEE (N)—IA BOEV) 19,20*20 

19 ISTNO-l 

WRITE OUTPUT TAPE 3*107, IOEV 
GO TO 4 

20 IDEV-ICEIN )— NCEFE 

I ABDEV-XABSFI IOEV) 

IF (NCE(N)-IABDEV)21 *25*25 

21 ISTNO-l 

WRITE OUTPUT TAPE 3*1C8,I0EV 
GO TO 4 

C****CHARGE PHASE ANALYSIS 

22 N*NBAT*1 
10EV-ICHTI(N)-NTIME 
IABDEV=XABSF( IOEV) 

IF (NCHTI(N)-IAB0EV)11, 23*23 

23 IDE V-ICHWHI N)—NWH 
IABDEV=XABSF| IOEV) 

IF (NCHWH<N)-IABDEV)13*24,24 

24 IF ( lUPSI(N) )18* 18,15 
CHECK FOR FULL CYCLE 

25 IF ( NBAT-KBAT ) 28* 26,28 


oonnonoooo * * « « 


26 IF ( NCYC— KC YC)28, 27,28 

27 K*K+i 

J J*NPHAS 
GO TO l 

28 IF (K-2)29,30,29 

29 WRITE OUTPUT TAPE 3 ,1 10, K8AT, KCYC 
GO TO 32 

30 IF < JJ-KK)32,3I«32 

31 WRITE OUTPUT TAPE 3,111 , K8AT,KC YC 

32 K«1 
KK*NPHAS 
KBAT*NBAT 
KCYONCYC 
GO TO 1 

33 WRITE OUTPUT TAPE 3,112 
REWIND 5 

CALL EXIT 
ENO 


ENDCARD DELETE AND DUPLICATE RECORD ELIMINATION STEP E-2 

PAUSE 
XEQ 

CARDS COLUMN 

ENDCARO 1DELETE AND DUPLICATE RECORD ELIMINATION PROGRAM 

..•* BELOW IS FORMAT EXPLANATION FOR RECORDS TO BE DELETED 
♦1* COL 1 CONTAINS A 0 IF ENTIRE CYCLE IS TO BE DELETED 

*2* COL 1 CONTAINS A 1 IF PHASE OF CYCLE IS TO BE OELETED ONLY IOUTCARDS 

*3* COL 5 AND 6 CONTAINS BATTERY NUMBER 
♦4* COL 8 TO 11 CONTAINS CYCLE NUMBER 

*5* COL 14 CONTAINS PHASE (IF COL i CONTAINS 1 I ,Q = CHG* 1 *D I SCHARGE 
♦6* LAST CARD SIGNAL CONTAINS 99 IN COL 5 AND 6 ITHIS ENDS ALL DELETIONS) 

*7* THIS DATA WILL BE PLACED BEHIND DELETE PROGRAM 

.... INITIALIZATION 

DIMENSION NN( 20) ,MM(20) 

2 READ INPUT TAPE 2 , 100 , 1 0, IB AT , IC YC , IPHAS 
1 REWIND 5 

REWIND 6 

WRITE OUTPUT TAPE 3,103 
I$W*0 

C.... FORMAT STATEMENTS 

100 FORMAT (II, 15, 15, 13) 

101 FORMAT (12, 14, II, 13, IX, 15, IX, 15, IX, 15, 13, 815, 13, 211, 14) 

102 FORMAT ( 27H0DUPL ICA TE RECORD DELETED , 12 , 14, 1 1 , I 3, IX , 15, IX, 15 , IX* 
115,13,815,13,211,14) 

IC3 FORMAT ( 1H1 ,45X , 32H0 ELETION PROGRAM) 

104 FORMAT ( 13H0 END OF JOB) 

105 FORMAT ( 27HCRE0UE STED RECORD DELETED , 1 2 , 1 4, 1 1 , 1 3 , IX , 15 , IX , 15 , IX , 
115, 13,815,13,211,14) 

1C6 FORMAT ( 36HORE0UEST FOR OELET ION OUT OF OROER ,416) 

107 FORMAT ( 47HCC0UL0 NOT LOCATE RECORO FOR DELETION REQUEST ,216) 

3 READ INPUT TAPE 5 , 1C1 , ( NN( I) , I *1 t 20 ) 

4 READ INPUT TAPE 5 , 1C1 , ( MM( I ) , I *1 , 20 ) 

DO 5 1*1,20 

IF ( NN ( I )-MM( I ) ) 9,5 ,9 

5 CONTINUE 

WRITE OUTPUT TAPE 3 ,102 , ( NN(I ) , I *1 ,20 ) 

6 DO 7 1*1,20 
NN( I )*MM( I ) 

7 CONTINUE 

IF ( MM( 1 )— 99 ) 4, 8, 8 

8 WRITE OUTPUT TAPE 6 ,101 , ( MM( I ) , I *1 , 20) 
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WR f TE OUTPUT TAPE 3,104 
GO TO 22 

9 IF <IBAT-99)ll,l0,10 

10 WRITE OUTPUT TAPE 6 ,1 01 , 4 NN4 I ) , 1=1 , 20) 

GO TG 6 

11 IF 4 IBAT-NNI 1)116,12,10 

12 IF ( ICYC-NN42) >16, 13,10 

13 IF 410)15,15,14 

14 IF 4 IPHAS-NNI 19) )10,15, 10 

15 WRITE OUTPUT TAPE 3 , 1 05 , 4 NN4 I) • I = 1 , 20 ) 

ISW = 1 

GO TO 6 

16 IF 4 ISW) 21 ,21 ,17 

17 READ INPUT TAPE 2 , 1 CO , I D , 1 1 BA T, 1 1 C YC , I PHAS 
ISW=0 

IF 4 IBAT-IIBATJ19, 18,20 

18 IF 4 ICYC-IICYC)19,20,20 

19 1 B AT * I 1 8 AT 
ICYOIICYC 
GO TO 9 

20 WRITE OUTPUT TAPE 3 ,106, IBAT, 1 1 BAT, ICYC, IICYC 
GO TO 22 

21 WRITE OUTPUT TAPE 3 ,107, IBAT, ICYC 
GO TO 17 

22 REWIND 5 
ENO FILE 6 
REWINO 6 
CALL EXIT 
ENO 

* OATA 
99 


* NASA BATTERY ENDCARD BCD TO BINARY ROUTINE STEP F-2 F-3 

* PAUSE 

* XEQ 

* CARDS COLUMN 

C ENDCARO 1 AND 2 MERGE , VALIDITY AND BINARY CONVERSION PROGRAM 

.... INPUT TAPE FOR ENOCARD CODES IS A6 

.... INPUT TAPE FOR ENDCARD 1 IMAGES IS AS 

.... INPUT TAPE FOR ENDCARD 2 IMAGES IS B5 

.... OUTPUT BINARY TAPE IS A7 

.... A3 WILL CONTAIN LISTING OF OATA ON BINARY TAPE A7 IN BCD FORM 
.... AND REJECTEO DATA MESSAGES 

REWIND 6 
REWIND 7 
REWIND 6 
REWIND 15 

DIMENSION IA425), IB425) , IOAC25) t IOBI25) , I0C4 25) , I0D4 25) 
DIMENSION I MOD 4 15,4) ,F MOD 165,4) 

NUBAT-0 

INSURE THAT IOA,IOB , IOC, 100, HAVE UNEQUAL CYCLE TO START 

10G0 I0A4 2) *99999 
IOB 4 2) *80888 
IOC 4 2)*77777 
I0D4 2) = 66666 
ICNT-0 
INO-O 

c 
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C FCOUNT IS THE TO TOTAL NUMBER OF CYCLES WRITTEN ON OUTAPE 
FC0UNT=0.0 

c 

C HEADING AND MESSAGE INFORMATION ON TAPE 3 
C 

1 WRITE OUTPUT TAPE 3,100 

100 FORMAT I 49H1 ENDCARD l ANO 2 MERGE AND VALIDITY CHECK PROGRAM! 
WRITE OUTPUT TAPE 3,101 

101 FORMAT ( 49H0LRL-MARTIN COMPANY NASA BATTERY TEST PROGRAM-REA! 

C 

C TAPE 6 CONTAINS CODING INFORMATION 
C 

2 READ INPUT TAPE 6,102 ,KODBAT,KODCYC,KOD,KODT IM 

102 FORMAT (16,16,13,13) 

C 

C TAPE 8 CONTAINS FNOCARD l RECORDS 

C 

3 READ INPUT TAPE 8, 950, (IA ( I) , I* l , 19) 

950 FORMAT I 12, 14, 1 1 , 13,316, 13,81 5, 13, 12, 11 ) 

103 FORMAT { 1H ,14,16,13,15,318,15,817,15,14,13) 

IF I I A ( 1 1-99)5,46,46 

C 

C CHECK TO SEE IF A NEXT BATTERY HAS BEEN ENCOUNTERED 

C 

5 IF ( NUBAT- IA( 1 )) 6,7,6 

6 WRITE OUTPUT TAPE 3, 107, NUBAT 

107 FORMAT ( 8H0BAT TER Y, 14 ,2 X , 9HC0MPLE TE • > 

NUBAT=IA(1I 

C 

C CHECK FOR CARD AND PHASE 

C 

7 IF C I A ( 18 1—10) 1 4, 9, 8 

8 IF ( I A ( 18)-11)14, 11,14 
C 

C PLACE ENDCARD 1 IN PROPER ARRAY 

C 

9 DO 10 N*l«19 
IOA ( N) = I A ( N ) 

10 CONTINUE 
GO TO 13 

11 DO 12 N=1 , 19 
IOC (N)-IA(N) 

12 CONTINUE 
C 

C COMPARE CYCLE NUMBERS IN IOA ANO IOC ARRAYS 

C 

13 IF ( I0A<2)-I0C(2)I3,15,3 
C 

C ERROR ROUTINE FOR ILLEGAL PHASE CODE FOR ENDCARD 1 

C 

14 WRITE OUTPUT TAPE 3,109 

109 FORMAT ( 45H0CARD BELOW HAS ILLEGAL PHASE, CYCLE OMITTED.) 

WRITE OUTPUT TAPE 3 ,103 , ( I AID , I =1 , 19 ) 

GO TO 31 
C 

C TAPE 15 CONTAINS ENDCARD 2 RECORDS 

C 

15 READ INPUT TAPE I5,951,( IB(I), 1-1,21) 

951 FORMAT (12.14,11,13,1114,415,12,11) 

110 FORMAT (1H , 1 4 , 1 6 , 1 3 , 1 5 , 1 1 16 , 41 7, 14 , 1 3 ) 
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PUN OUT ENDCARO 2 FOR PREVIOUS BATTERY 

IF! I0AI1I-I BI1) >200,200, 600 
6C0 WRITE OUTPUT TAPE 3,601 

6C1 FORMAT I47H0ENDCARD 2 BELOW NOT USED, IMPROPER BATTERY NO. I 
WRITE OUTPUT TAPE 3 ,110 , 1 1 B( I ) , I S 1 , 21 1 
GO TO 15 

COMPARE ENDCARO 1 CYCLE TO ENDCARO 2 CYCLE NUMBER 

200 1FI IBI 11 — 99)203, 46,46 
203 IF ( IOA(2)-IB(2) >17,18,16 

16 WRITE OUTPUT TAPE 3,111 

111 FORMAT ( 47HCENDCARD 2 CYCLE LESS THAN ENOCARD 1,0MIT CARO.) 
WRITE OUTPUT TAPE 3,110,1 IBII ), 1*1,21) 

GO TO 15 

17 WRITE OUTPUT TAPE 3,112 

112 FORMAT I 49H00NE OR BOTH ENOCO.2 MISSING, OMIT ENOCO. 1 BELOW.) 
WRITE OUTPUT TAPE 3 ,103 • ( IOA (I) , I »1 , 19 1 

WRITE OUTPUT TAPE 3 ,103 , I IOCI I ) , I“l ,19) 

BACKSPACE 15 
GO TO 31 

PROPER ENDCARD 2 SELECTED 


CHECK CARD NO. AND PHASE 

18 IF I IBI 201-20)25,20,19 

19 IF I IBI 20 1-21 > 25,22 ,25 

PLACE ENDCARD 2 IMPROPER ARRAY IOB OR 100 

20 DO 21 N»l,21 
IOB I N) * IBI N) 

21 CONTINUE 
GO TO 24 

22 DO 23 N*1.21 
10DI N) * IBI N) 

23 CONTINUE 

COMPARE CYCLE NUMBERS IN IOB AND 100 ARRAYS 

24 IF II OB I2I-I0D 121)15,26,15 
ERROR ROUTINE FOR ILLEGAL PHASE IN ENDCARO 2 

25 WRITE OUTPUT TAPE 3,113 

113 FORMAT I47H0EN0C0.2 BELOW HAS ILLEGAL PHASE, CYCLE OMITTED.) 

WRITE OUTPUT TAPE 3 ,1 10 • I IB I I ) , I >1 , 21 ) 

GO TO 31 

C 

C IOA, IOB, IOC, ANO IOD ARRAYS COMPOSE AN ENTIRE CYCLE, CHECK VALIDITY 

C 

26 00 28 N*l,3 

IF I I0AIN)-I0BIN))29*27,29 

27 IF I IQCIN)-IOO(N) >29,28,29 

28 CONTINUE « 

GO TO 300 

29 WRITE OUTPUT TAPE 3,114 

114 FORMAT (42H0BAN0,CYN0, YEAR, OR DAY ILLEGAL, OMIT CYCLE. 1 
3C WRITE OUTPUT TAPE 3 ,103 , 1 IOAI I ) , I *1 ,19 ) 
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WRITE OUTPUT TAPE 3 ,1 10 , U0B U> * I -1 ,211 
WRITE OUTPUT TAPE 3 ,103, U0C( I) 1 1 *1 1 19 ) 

WRITE OUTPUT TAPE 3 ,1 10, U00< II 1 1*1 ,21) 

31 IOA ( 2) *99999 
10B ( 2 ) * 88888 
IOC ( 2) *77777 
10DI 2) *66666 
GO TO 3 
C 

C CHECK FOR ZERO EFFICIENCY 
C 

300 IF (I0A(1)-10)33,3S,35 

33 IF I I0A{8))34»37,34 

34 IF ( IOA ( 17)1 301? 37» 301 

35 IF ( IOC (8)) 36, 37, 36 

36 IF CI0C(17))301, 37,301 

CHECK FOR ACT I Vfc CELL BEING UNEQUAL FOR CHG. AND DIS. 

301 IF ( IGQ( 17)-IOD(17) 1303,302,303 

302 IF ( IOBt 18)-IODU8))303,38,303 

303 WRITE OUTPUT TAPE 3,304 

304 FORMAT ( 36HCACT I VE CELL ON HALF CYCLE DISAGREE. I 
GO TO 30 

37 WRITE OUTPUT TAPE 3,115 
115 FORMAT ( 33HCEFF IC IENC YS ARE ZERO , OMI T CYCLE.) 

GO TO 30 

TEST TO SEE IF A CODE SHOULO BE PLACED ON THIS CYCLE 

38 IF ( KODBAT- 99 ) 39 ,42 *42 

39 IF ( KODB AT— 10 A ( 1) )44,40,42 

40 IF (K00CYC-I0AI2) )44,41,42 

41 1 0A( 20 ) =KOD 
I OA ( 21 ) =KOOTI M 
IOA ( 22 ) =0 

READ INPUT TAPE 6,102, KQDBAT , KODCYC ,K0D,K00TIM 
GO TO 43 

42 I OA { 20) 3 0 
I OA ( 21 ) =0 
IOA < 22 ) s 0 

THE 10 ARRAYS ARE READY TO BE PLACED IN OUTPUT IMOD-FMOD ARRAYS 

43 IF (1CNT-4) 50,66,66 
ERROR ENCOUNTERED IN STATEMENT 39 OR 40 

44 WRITE OUTPUT TAPE 3,119 

119 FORMAT (34H0DATA WAS REJECTED FOR CODE BELOW.) 

WRITE OUTPUT TAPE 3 ,102, KODBAT, KODCYC , ROD, KODTIH 
READ INPUT TAPE 6, 102 , KODBAT, KODCYC ,KOD, KODTIM 
GO TO 38 

45 WRITE OUTPUT TAPE 3,120 

120 FORMAT ( 16H0END OF PROGRAM.) 

REWIND 6 
REWINO 15 
REWIND 6 
END FILE 7 
REWIND 7 

WRITE OUTPUT TAPE 3,121,FC0UNT 

121 FORMAT ( 34H TOTAL NUMBER OF CYCLES PROCE SSED* , F15.0 I 
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ROUTINE TO CONVERT BINARY TO SCO FOR PROGRAM (MtCR 

PRINT 12I.FC0UNT 

NUBAT»6 

461 WRITE OUTPUT TAPE 3.404 

4€4 FORMAT llHl.40X.43H BINARY TAPE CONVERTlO TO ICO FOR INOCAAOS.I 
405 READ TAPE 7, INO, I CNT • I 1 1 MOO 1 1 , J I , I >1 , 1 11 , IPM06I I « J I, tali, All, 

1J«1, ICNTI 
GO 404 J*1 . ICNT 

IF I INOOI 2. JI-NUBAT) 766,700,806 
•06 NUiAT«lMODIl,J» 

HAITI OUTPUT TAPi 5.404 
TOO HAITI OUTPUT TAPI 5,090 

090 FORMAT I1H0,131H 10 IAT CYC Y OAY S A I C 01294907*9 

ITI-OUR AMP-MI MAT-MI IIP AMP-H WAT-M AVCUR MICUR MXCUR AVPMR M 
2 1 PWK MXPWR CEP I 

WRITE OUTPUT TAPE 9,900, I I MOOI I , J I , 1 »1 , 11) , I FMODI I , J > , I- 12, 241 
WRITE OUTPUT TAPE 3,511, 1 1 MOOI I , J ) , I -1 . 11 ) . I FMODI I . J I • 1-56, 901 
WRITE OUTPUT TAPE 9.091 

091 FORMAT I1H0.191H 10 IAT CYC Y OAY S A 6 C 01234547*4 

1 E/I CYC 0 CVC 1 CYC 2 CYC 3 CYC 4 CYC 9 CYC 6 CYC 7 CYC I CYC 9 

2MAXVAR TIME I 

WRITE OUTPUT TAPE 3.9C2, I IMODI I , J I , 1-1 , 11 1 , IFMOOI l , J I , l>29,37) 
WRITE OUTPUT TAPE 3.9C3. I IMODI I.J) , 1*1,111, I FMOOI I, J 1, 1*51 ,091 
400 CONTINUE 

IF 1 1 N0I40S, 405,408 

900 FORMAT 1 1M , 6HCD 1 CHO, 1 2, 1 3, 1 9 , 1 2 , 14, 1 2 , 1 3, 14, 19, 1 6, 1 9.P7.4, 
12F7.2,F9.1,2F6.3,3F7.3,9F6.3,F9.1l 
961 FORMAT I 1M ,8HCD 1 01 S , 12 , I 3 , I 9 , 12, 14, 12, I 3, 14, 19, I 0, I 9,F7.4, 
12F7,2,F9. 1, 2F6,3,3F7. 3, 3F6. 3*FS, 1) 

902 FORMAT 1 1M ,6HC0 2 CHG, 12, 1 3, 1 5 , 12, 14 , 12, 1 3, 14, 19, tO, I9.F0.9, 
11GF*.0,F0.3,F7.3» 

503 FORMAT 1 1H ,8hCD 2 01 S , 12, 13, 1 9 , 1 2. 14, 12 , 13, 14, 19, 10, I5»F0*3, 
11QF6.C,FA,9«FT*9I 
408 RENINO 7 
402 CALL EXIT 

LAST RECORO ON LAST TAPE ENCOUNTERED 

46 INO-1 
GO TO 66 

IQA.IOB.IOC.ANO 100 CONTENTS TO BE PACKEO IN IMOD COMMON DATA 


90 ICNT-ICNT41 
N-ICNT 

51 IMODll.NI-l ID 

IMOOI2.NI-IOAI1I 6ATT 

I MOOI 3,N)«I0A( 2) CYCl 

IMOOI4.NI-IOAI3) YEAR 

I MOOI 5 ,N) ■I0AI4I OAY 

I MOO 1 6, N) *IOAI 191 SE« 

1 MOD I 7 , N ) * I OA 1 20 1 CODI 

1 MOOI 8 .N 1 -IOAI 21 ) CODI 

I MOO 1 9 , N) ■! OA 1 221 CODI 

IMOOIIO.NI-IOBIIT) ACT 

IMOOIll.Nl-IOBIll) ACT 

REMAIN 01 NG CONTENTS OF ARRAYS TO BE PACKEO INTO FMOO ARRAY 
START ENOCARO 1 CHARGE 

12 FMOOI12,NI>10AI») Tlftl 

P MOOI 12, N)*FM0Dll2,N)«. 0061 
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FM0D(13,N)=I0A(6I 
FM00U3, N)=FM0D(13 t N!*.0l 
FMQD ( 14,N)=I0A(7) 

FHOD( 14, N)=FMQDU4 f N)**0l 
FMOO (15,N)=I0A(8) 

FM00( 1 5,N ) =FMQD( 15, N) ♦• l 

53 1*9 

DO 54 K=16 , 23 

FMOO (K,N)*10A(II 

FMQD ( K, N) =FMOO{ K t N) ♦•001 

i«m 

54 CONTINUE 

55 FM0D(24,N)=I0Af 17) 

FMQD( 24, N)=FMOO(24*N)*.l 


AMP- 

WATT 

6NGY 

♦WAT 

♦ 

♦ TF 

♦ 

♦ MA 

♦ PC 
CUR- 


START PACKING ENDCARO 2 CHARGE 


56 FMOO (25,N)=I0B(5) EI p 

FMOO < 2 5 , N ) =F MODI 25, N)^* 001 

1-6 * CE 

DO 57 K = 26, 35 * 

FMODtK, Nl =IOB( I ) * cv 

I = IH * 

57 CONTINUE * cc 

FMOD( 36»N)=IQB( 16) MAX. 

F MO 0(36, N) =FMOD( 36, N) ♦•001 

FMOO ( 37, N) =I0B (19) f IMF 

FMGD(37,N) =FMOD ( 37 , N) * .001 


START PACKING ENDCARO 1 DISCHARGE 


58 FMOO( 38,N)=I0C(5) 

FMOO (38, N) =FMOD< 38 , N) 0001 


FMOO( 39,N)=I0C(6) AM p- 

F MO 0(39, N) =FMOD (39,N)*.0i 

FMOO (40,N)=IOC(7) WAT y 

FMOO ( 40 , N ) =F MOO ( 40, N) ♦ . 01 

FMOO (4l,N)=IQC( 8) ENGV 

F MO 0(41, N) =FMOD( 41,N)*.l 

59 1*9 ♦WAT 

00 60 K = 42 , 49 * 

F MOO ( K , N) = IOC ( I) * T( - 

FMOO { K , N ) =F MOD (K,N)^«001 * 

1 * 1*1 ♦ 

60 CONTINUE * p C 

61 FM00( 5C, N) =IOC( 171 CUR- 

FMOD ( 50, N ) =FMOD< 50, N) ♦• l 


START PACKING ENOCARO 2 DISCHARGE 


63 FMODC 51 , N) =IOD( 5) El F 

FMOO( 51,N)=FM00( 51 , N) ♦•001 

1=6 ♦ CE 

DO 64 K =52*61 * 

FM0D( K, N I = IOD( I ) * C> 

i*i*i * 

64 CONTINUE * C( 

F MOD (62. Nl = IOD( 161 MAX. 

FMOO ( 62 » N) =FMOO (62. N) 4.001 

F MOD I 63 » N) *1001 191 TIMJ 

F MODI 63 , N ) =FMOO ( 63 , N) *.001 

65 GO TO 31 
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c TAPE 7 IS USED FOR OUTPUT TAPE 
66 CNT * ICNT 

FCOUNT*FCOUNT*CNT 

WRITE TAPE 7.IND. ICNT, IIIMODI I • Jit I-l «ll I « (FMODC I « J I • 1*12,63), 
1 J * 1 1 ICNT ) 

ICNT *0 

IF C IND-1) 50.45.45 
END 


* NASA BATTERY REASEARCH ENDCARD BINARY MERGE STEPG-2 

* PAUSE 

* XEQ 

* CARDS COLUMN 

C.... NOTES 

C.... PLACE BINARY TAPE TO BE MERGEO ON B0 

C..,. PLACE OLD DATA TAPE FOR BAT G TO 7 ON A6 
C.... PLACE OLD DATA TAPE FOR BAT 8 TO 11 ON A7 
C.*.. PLACE BLANK TAPE ON B6 FOR MERGED BAT 0 TO 7 
C.... PLACE BLANK TAPE ON B7 FOR MERGEO BAT 8 TO ll 
C.... PLACE BLANK SCRATCH TAPE ON A5 FOR SCRATCH ONLY 
C.«.« INITIALIZATION 

DIMENSION I A( 11 » 4) f AA ( 52 .4) , IBf 11 . 4 ) . BB I 52 ,4 ) 

11*5 
IN-18 
REWIND 11 
REWIND IN 
!W$*0 
200 N*1 

READ TAPE IN. INA , ICA. UIAI L,K ) »L*1 . 1 1) . < AA< M ,K I , M*1 , 52 ) f K*l f ICA1 
300 IF IN-ICAI700. 400.600 

400 WRITE TAPE 1 1 , INA , ICA . ( (I A< L. K ) .L*l . 11 ) . C AA( M.K ) .M« 1 . 52 ).K*1 . ICA) 
500 IF I INA I 200.200.5000 

600 WRITE OUTPUT TAPE 3.601 

601 FORMAT I 35HOERROR IN STATEMENT 4^0. EXIT CALLEDI 
GO TO 2100 

700 IF UA(2.N)~IA(2*N+1) ) 1000. 800. 900 
800 N*N+1 

GO TO 300 

900 WRITE OUTPUT TAPE 3.901 

901 FORMAT I35H0ERR0R IN STATEMENT 700. EX IT CALLEDI 
GO TO 2100 

1000 IF UNA) 1200.1200.1100 
1100 INA-C 
ISW-1 

1200 WRITE TAPE II . INA.N. U 1 A t L. J ) .L *1 . 1 1 ) . t AA( M» J ) . M«1 . 52 I . J-l.NI 
K«i 

1300 DO 1400 L-1.L1 

lA(L.K)* I AIL.N+H 
1400 CONTINUE 

DO 1500 L*l. 52 
AA(L.K)*AA(L»N+1) 

1500 CONTINUE 

IF« I NUI-ICAl 1600. 1800. 1700 
1600 K*K+1 
N*N+1 

GO TO 13C0 

1700 WRITE OUTPUT TAPE 3.1701 

1701 FORMAT ( 53HOERROR IN STATEMENT BETWEEN 1500 ANO 1600. EXIT CALLED) 
GO TO 2100 

1800 IF (ISWJ20G0. 2000. 1900 
1900 INA-I 


on no non on 


2000 WRITE TAPE 1 1 , INA ,K, l (I A( L, Jl ,L*1 , 1 1 J , ( AAIM, J) , M*l, 52 > , J*l, K I 
GO TO 500 
21C0 REWIND IN 
REWIND II 
CALL EXIT 
5000 END FILE II 
REWIND II 
REWIN0 IN 

10 ISW=0 
KSw-0 

C.... II IS BINARY TAPE TO BE MERGED 
11*5 

REWIND II 

C.... Jl IS BAT 0 TO 7 OLD DATA.J2 IS BAT 8 TO 11 OLD DATA 
Jl=6 
J2*7 

REWINO Jl 
REWIND J2 

C.... Ml IS BAT 0 TO 7 MERGED NEW DAT A f M2 IS BAT 8 TO II MERGED NEW DATA 
Ml*16 
M2* 17 
REWIND Ml 
REWINO M2 
GO TO 11 

C.... READ TAPE ROUTINES *** 

C.... READ ROUTINE FOR TAPE TO BE MERGED 

1 READ TAPE II,INB,ICB, II IB( N,M I ,N*l , 11 ) , I BB( N,M) ,N*1 , 52 I ,M* 1 , IC8 ) 

GO TO ( 12,25,33,45) , LI 

.... READ ROUTINE FOR OLD DATA 

2 READ TAPE Jl , INA, ICA, I ( I A(N.M) , N*1 , 1 1 ) , I AAI N,M) ,N*1 , 52 ) ,M-1 , ICA I 
GO TO ( 1 3,20) ,L2 

.... WRITE TAPE ROUTINES *** 

.... WRITE ROUTINE FROM AA ARRAY 

3 WRITE TAPE Ml , INA, I CA, { ( I A( N, Ml , N=1 , 1 1 ) , I AAI N,N) ,N*1 , 52 ) ,M*1 , ICA > 
GO TO ( 19,30,35,39,48) ,L3 

.... WRITE ROUTINE FROM B8 ARRAY 

4 WRITE TAPE Ml , INB , I C8 , (I I B< N, M) , N*1 ,1 1 1 , I BBI N,M) , N*1 , 52 ) , M* 1 , IC8 ) 
GO TO 124, 31, 13), L4 

.... MAINLINE PROGRAM 

11 Ll=l 

GO TO 1 

12 L2*l 

GO TO 2 

13 I ABAT* I A ( 2, 1 ) 

14 IF ( ISW)15,15,27 

15 IF (INA 1 16, 16, 36 

16 IF <K$W)17,17,18 

17 IF ( IABAT-IA(2,1) 121,18,49 

18 L3*l 

GO TO 3 

19 L2*2 

GO TO 2 

20 GO TO 14 

C.... NEXT BATTERY ENCOUNTERED ON Jl, CHECK FOR SAME BAT ON II 

21 IF <IABAT-IB(2, 1)113,22,50 

22 IF ( INB)23,23,26 

23 L4*l 

GO TO 4 
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24 11*2 

GO TO 1 

25 GO TO 21 

26 KSW-1 
INB«0 
L4-3 

GO TO 4 

c.... EXIT ROUTINE 

27 IF ( INA)16,16,28 

28 IF I KSW) 29 »29 , 34 

29 INA-0 
13*2 

GO TO 3 

30 L4*2 

GO TO 4 

31 IF I INB )32» 32*35 

32 L l *3 

GO TO 1 

33 GO TO 30 

34 13*3 

GO TO 3 

35 PRINT 100 

100 FORMAT ( 12M0 END OF JOB) 

END FILE Ml 

REWIND Ml 
REWINO II 
REWIND J1 
CALL EXIT 

C.... ENO BAT 7 ROUTINE 

36 IF CKSW 137*37*47 

37 IF (IBC2«l)-7) 51*38*47 
3B INA-0 

L3-4 
GO TO 3 

39 INA-INB 
ICA-ICB 

DO 42 N-l * ICB 
DO 40 M*l» 11 
IA(M,N)-IB(M*NI 

40 CONTINUE 

DO 41 M-1.52 
AAIM.NI-BBIM.NI 

41 CONTINUE 

42 CUNTINUE 

43 IF (INB)44*44.46 

44 Ll-4 

GO TO 1 

45 GO TO 37 

46 KSW-1 

47 INA-1 
L3-5 

GO TO 3 

48 ISW-1 
REWINO J1 
ENO FILE Ml 
REWIND Ml 
J1-J2 

Ml -M2 
GO TO 12 

C.... PROGRAM ERROR STATEMENTS 

49 PRINT 101 

101 FORMAT 1 40H0 ERROR IN STATEMENT 17, IMPROPER RESULTS I 
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GO TO 35 

50 PRINT 102 

102 FORMAT ( 40H0 ERROR IN STATEMENT 21, IMPROPER RESULTS! 
GO TO 35 

51 PRINT 103 

103 FORMAT (40H0 ERROR IN STATEMENT 37, IMPROPER RESULTS! 
GO TO 35 

END 
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1. Retrieve- Formatter Routine 


la. Data Retrieve Formatter Routine Flow Charts 
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la. Data Retrieve Formatter Routine Flow Charts (Continued) 



S' Reduce Outp 

( 4 Subscript to 

Write This C 
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la. Data Retrieve Formatter Flow Charts (Continued) 


Compute The No. Items 
That Will Fit Into Out- 
put Array Based on 5 
Words Per Requested 
Field 

Yes 



rz 




LZ 3 







= 2 

J 



Square Fit 


if Cell Cycle 


Cycle 




\ZCell 
f Cycle 

Write and Print 
Comment Formal 
No. 926 

No 

Valid Ceil PvHp 


vanu v>cM \-juc 

- 


I Yes 

Rewind Endcard and 
Retrieved Tapes 

<^Oischarge Phase 


0— C 
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Extract Battery Cycle From 
Current Tape Item and Re- _ 
duce as Input Cycle for 
Matching in Block 13 Page 4 




■B 



L_J 

Write Out Coauaent 



M 

Foraat No. 927 





( ) 



Save Charge Phase of Aiwp. Hr Field in *TAMPtT 
Save Charge Phase of Time Duration in "TIDUR* 
Save Discharge Phase AMP Hr. in ‘DIAM* 

Save Discharge Phase of Time Duration in *DTI0* 


Page 9 ^ 




N 

Check ID 

First Reed | 

n 

Words =0 

| No 





L-_ 

1 








Write Out Comment 


Write Out Comment 

Format No. 921 


Format No. 925 


( *** ) 
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la. Data Retrieve Formatter Routine Flow Charts (Continued) 
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la. Data Retrieve Formatter Routine Flow Charts (Continued) 
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lb. Data Retrieve Formatter Routine — Source Statements 

SLOG 002101 

* BATTERY TEST RETRIEVAL PROGRArt 

* PAUSE 

* XEO 

* BATTERY TEST DATA RETRIEVAL PROGRArt 

* PAUSE 

* SYMBOL TABLE 

* LIST8 

* CARD-S COLUMM 

* FORMAP 

* LABEL 
CORP 

C,... DATA RETRIEVAL PROGRAM 

DIMENSION I F I ELD ( SO ) .FIELD (SCO) .DEL T (300 ) , IAR(250) .FAR ( 26.25 0 ) . 
1IEDU1..4) »£ED( 52 i 4 ) ,100(91 »FQD( 1G»52G I .CUEF1I12 1.1BAT (IS) ,PCHf 50>4 l 
1 I CD (43) .FAQ (250) .KF I ELD (30) . IRNGI19) 


AF LG = 

A 7 = 2HA7 


1 

A3 = 2MA 8 


1 

B7 = zmi 


1 

U3 = 2HB8~ 


1 

I ONE =1 
IZEK - "J 



IN = 2 

A2 


10 = 3 

A3 


IOUT =18 

b 8 


-LOUT 1 =17 

B7 

1 

I END =8 

A8 


ICC = 0 
ID D = 0 
IfclNDl = 7 

A7 

1 

IRE7R = 19 

b9 


I.REQ = 

I RNG ( 19) =0 
I EN = 7 
I OU = 7 




C.... READ CONTROL CARD 

6 READ INPUT TAPE I N , 940 . ( I CD ( I ) . I = 1 . 43 ) 

C.... CHECK LAST CARD. 

I F ( I CD ( 1 ) -9 ) 20,2.20 
2 CALL EXIT 

C CHECK FOR ADDITIONAL CYCLE GROUPS 

20 I F ( I C D ( 4 0 ) ) 501,500,501 

501 READ INPUT TAPE 1 N » 9 44 » ( I RNG ( J 8 ) » J 8 = 1 » 1 8 ) 

J8 = 1 
500 K3=l 
K9 =0 

K 1 0 = 0 

I L I Mi = I CD ( 14 ) + I CD (15) * (ICDH6)-1) 

ALIM=ILIM 
IFIN =0 

I F INI = U 1 

I LST =■< 

I F ( I CD ( 3 7 ) ) 22,7,22 

7 READ INPUT TAPE I N , 959 » TAMPh , D i AM , T I DU'R »DT 1 D 
22 I REQ = I REQ + 1 

I CHK = 0 

ICHK1 = 0 1 

ICHK2 = 0 1 

I CHK 3 = 0 1 

C.. . . WRITE CONTROL CARD OFF LINE AND ON RETRIEVtD DATA TAPE 
c.... LOCATE BATTERYS 
K 1 = 0 
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lb. Data Retrieve Formatter Routine — Source Statements (Continued) 


KCYC = 0 

DO 23 T = 

IF ( I CD ( I ) ) 24.23,24 

< 1 = K 1 +1 _.. 

I BAT ( K1 ) = 1-2 

r nNTTNMF 

C.... LOCATE FIELDS REQUESTED 

K.2 , = JL . 

I F ( ICDtH2D )3,4,3 

.3 LL1_=2J.T 

GO TO 5 

„A 1 IJ-321i 

5 UO 33 1=111.36 

IF ( I CD (ILL 3.1 , 32-ilX _.. 

31 K2 = K2 +1 

I F I ELD ( K2J = _ I C D (J I _ . 

33 CONTINUE 

32 J.E11C2J ftSi jlMjlAU 

C.... all FIELDS ARE TO BF SELECTED 

.38 IF ( ICQU )}. 35j 24,35 .. ... . . ..... 

C • • • • OU T C AR D 

34. . J= IS ... 

GO TO 36 

. — ...... tiiDCA.R.0. — — ~ — ... - — — — 

35 J = 26 

36 J2Q...37 K2 =1. J. 

I F 1 ELD ( K.2 ) = K2 

.37 .CONTINUE ....... _ 

K.2 = K2 -1 

..JtQ_ LEJU.CO.tm-r...Zl .BJzi.UZ.x - 85 

78 IF(ICDCl)) 1780.85.1780 

1780 lNQ = 5-0/. (IC2+K2+2) — 

I NO= I N0+ 1 NO 

..GQ. T.O 86 — 

85 INO = 500 / <K2 + 1 ) 

.£L6 IOX=l£DlliU 

WRITE OUTPUT TAPE 10. 902. IKEQ 

IF ( I C D Q.) .1 _4.2.» 41 *ft2 . . 

41 WRITE OUTPUT TAPE 10. 917 

GO .TO 43 ... ... 

42 WRITE OUTPUT TAPE 10. 916 

43. WRITF OUTPUT TAPE 10. 903 ♦ U BAT ( I ) . I = 1 . K 1 ) 

WRITE OUTPUT TAPE io', 904, ICYC 

WRITE OUTPU T TA PE 10. 905. I C D ( 15 ) , I CD ( .16) 

IF ( ICD( 17 ) ) 45,44.45 

44 WRITE OU TP UT TAPE 1 0. 9 06 

GO TO 46 

4 5 IF ( ICD( 17 )-2 ) 511,510.5 11 

510 WRITE OUTPUT TAPE 10,949 

GQ....T.Q..46 _ ... - 

511 WRITE OUTPUT TAPE 10.907 

. .46. iF..J I CD.! 1J ). 54,47.54 ... ... .. 

47 IF t I CDt 38)-l)49,48,49 

--4&. m LLE. OUIE.U.L— TAEE-IGj.- 2D8 

GO TO 54 

_49 IF ( ICDI 18 ) ) 51,50,51 

50 WRITE OUTPUT TAPE 10, 911 

GO TO 54 

51 IF ( I COt 18) - 2 ) 53,52.53 

52_ _ _wRITE_OUTPuT TAPE 10, 909, ICD(l9) 

' GO To 54 ~ 

53 WRITE _OUTPUT^_T APE_IO ,910 » 1CDJ 19 ) 

54 I FUCDI 20 ) ") 56 » 55.56 ‘ 

55 WRITE OUTPUT TAPE 10, 918 

GO TO 57 

56 WRITE OUTPUT TAPE 10, 9 12. ( IF I LLD ( I ) » I = 1 ♦ K.2 ) 
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57 IF<ICD(41)) 58 *59*58 

58 WRI TE -QUTPUJ -TAPE 10, 913 - - 

59 I F ( I CD ( 42 ) ) 60*61*60 

60 .vRITE OUTPUT I APE 1 0 . 9 14 . 1 CD 1 20 ) 

61 WRITE OUTPUT TAPE 10 .915 » 1 CD-143'. 

C.... WRITE CARD I MAGE ON RETRIEVED TAPE- . ...._ 

WRITE TAPE I RE T K * AF LG * ( I CO ( I ) » I = 1 * A3 ) 

IF ( I C D ( 4 0 ) ) 616*615*616 

616 WRITE' TAPE 1RETK,(1KmG(1),I=1,16) 

1 = 1 

ICR = 2 

617 WRITE OUTPUT -TAPE -TO-, 956* -ICR * I R-NU ( 1 1 * I RNGI 1 + 1 ) * 1 RNG 7 I +-2 1 

1 = 1+3 

- ICR = ICR +1 ... 

IF ( IRNGI I ) ) 617.615.617 

-615 WRITE OUTPUT TAPE 10. 957 

I FND = 0 

IFND1 .s 0 .. ... 

I G 1 = I CD ( 14 ) 

1G2 = I CD 1 15 1 ... 

IG3 = I CL) I 16) 

C. .... CHANNEL CARD TYPE REQUEST 6 . 

IF ( ICD( 1 ) ) Id. 200*10 

,C.... ENDCARD ... 

10 IF(I CD <17)111, 71, 11 

11 . I F t I CD ( 1 7 ) -1) 14,13,14 

13 DO 12 1=1, K2 

1 F I ELD ( I ) = I F I ELD ( I )+26 

12 CONTINUE 

GO ..TO .71 . . .... . . 

14 DO 15 1=1, K2 

. KFIELD(I) = IF I ELD ( I ) +26 

15 CONTINUE 


.71 IF(IFIN) 561,542,561. . . ._ . _1 ... 

542 IF <IBAT(K3) -IEN) 75*75.543 1 

- . 15 . .. READ TAPE I.END , IF IN,.l CNT.i 11... ILD( K , J ) ,K = 1 ..*.1 1.1 .XEEDI K.iJ 1,K = 1.,521 jl 

1 J=l, I CNT ) 

. IF(ICHK) 76,72,76 ... . .. ,1_ 

543 READ TAPE I END1 , 1 F I N , I CNT , ( ( I ED ( K » J ) , K= 1 , 1 1 > , ( FED < K , J ) , K= 1 , 52 ) , 1 

1 J=1 » ICNT.l ... . _1__ 

IF ( ICHK1 ) 76 ,72 ,76 1 

— 12 . . . IFlIEDLU-ll 721x620,03.1 ... L_ 

73 I F ( I BAT ( K3 ) - IEN) 579*579,560 1 

.579 PRINT 919, A.B . 1. 

GO TO 581 1 

.... 580. .... PRINT 919, A 7 1 

581 PAUSE 1 


. &Q...IQ 5.42. 


62o 

...62 L... 

I F ( I BAT ( K3 ) - IEN) 621,621,622 

1 

-6 2 2 

GO TO 76 

j.cHia =.i .. - . 

1 

76 

DO 96 1=1, I CNT 

-. 1 . = .J ... ... .... . ._ . .... 


77 

I F ( I BAT ( K3 ) - I ED ( 2 , 1 ) ) 77,81,96 
I F < I BAT ( K 3 ) - IEN) 545,545,546 

1 

545 

BACKSPACE I END 

1 


GO TO 547 

1 

546 

BACKSPACE IEND1 

1 

_ 547 

_J_F ( I FND ) 80,79,80 . . . 

_ _ 1 

79 

WRITE OUTPUT TAPE 1 0 ,920 , I BAT < K3 ) 


— C • • • m 

GO TO NEXT BATTERY LOGIC 



LK = 1 



GO TO 506 .... 


80 

WRITE OUTPUT TAPE 1 0 ,92 1 , I ED < 2 , 1 ) , I C YC , I BAT ( K3 ) 



I FND = 0 
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C.... GO TO NEXT BATTERY LOGIC 

.. _5.6_1 LK_ =1 

GO TO 506 

... C HATT . LO CATED .LEIS-.F I ND -CYCLE 

81 I FND = 1 

IF( TCYC - LEJlL2-ti ) > 82.92,96 

C.... USE NEXT HIGHEST CYCLE 

8? ... .. 1E.L1L m.. -- -1 ED ( 3 .ill— , 

84 WRITE OUTPUT TAPE I0,946,KCYC 

J.F( I BATIKS). - IEN) 700 ».70Q j.7,.01.. _ 

700 BACKSPACE I END 

701 BACKSPACE IENU1 

GO TO . Ill — 

83 WRITE OUTPUT TAPE 1 0 ,922 , I CYC , I ED ( 2 , I ) » I ED ( 3 , I ) 

C.... CYCLt OR CLOSEST .CYCLE FOUND - - - 

C.... CHECK VALIDITY OF CYCLE 

. ...22. LF. II EQILiIU 3.2j.-.2Iljl23- 

C...r INVALID DATA PRINT ITEM 

93 . WRITE OUTPUT TAPE IO» 923l.» I EDI 2 * I ) >.IED.( 3 » I ) , Jf.a(..7jX) 

1 I ED (8, 1 ) 

C,,.. SHOULD WE BYPASS. .INVALID DATA ... 

IF ( I CD l 4 1 ) ) 94,96.94 

..Ci.,-,*.SjLLECT JiEajJESJ.£D,.£.lELUS - 

94 K9 = K9 +1 

I PH = .0 -- .... 

ICZER =0 

I DZER . =o .. 

1 F ( I CD ( 1 7 ) -1) 529,528,52V 

. _.52S. I AB.I.KS’J 61212.01 - . 

GO-TO 530 

529 IAR(K9).« JEDI3.I) - - 

C.... K2 = NO. OF FIELDS TO EXTRACT 

530 DO 1 0 0 . K 1 2 = 1» K2 - 

K8 = I F I ELD I K1 2 ) 

.. .... IF. .(FJEPiMtl U 5.S3.*582 ♦58.3 _ 

582 IFISIGNFI 1. *FED(K8, I ) ) ) 584 ,50 3 ,58 3 

584 IF l ICZER.). 681 ♦751 ,681 

751 ICZER =1 

IF t ICC — 10 ) 680,681 ,680 

680 WRITE OUTPUT TAPE 10, 953 , IAKIK9) 

. ]C.C..=..LCC,tl 

681 I F I I CD ( 39 ) ) 682,583,682 

682 „K9 =.K9-1 

GO TO 585 

583 FAR ( K12,K9 )...=_FED I.K8 ,1 ) 

100 CONTINUE 

.J.F. (.ICZER.) .5 85 »_6.83_,58 5 

683 ICC =u 

C CHECK CHARGE DISCHARGE REOUE.ST 

585 IF ( ICu( 17 )-2) 619,16,619 

16 IFIK9 .— I NO ) 586,'98, 586 ...... 

586 K9 = K9+ 1 

IARIK9) = - 1 ED ( 3 ♦ I ,) , 

DO 17 K 1 2 = 1 , K 2 

K8 = KFIFLDIK12) _ _ 

IF ( FED ( K8 , I ) ) 589,588,589 

588 IF ( SIGNF ( 1. ,FED(K8, I ))) 590,589, 589 

590 I F 1 I DZER ) 686,750,686 

75o I DZER =1 . 

I F I I DU— 10 ) 685 ,686,685 

685 WRITE OUTPUT TAPE lu, 953_» 1ARIK9) 

IDD = 1 DD + 1 ' 

686 1 F ( I CD ( 39 ) ) 687,589,687 

687 K9 = K 9 — 1 
00 Tu 591 
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589 FARIK12.K9) = FFD ( KR » I ) 

17 CONTINUE 

lF(Il)ZdK) 591.689,591 
6 89 IDD ='■> 

00 TO 591 

C.... CHECK ,-iOKE CYCLES 
619 I F ( ICO ( 35 ) ) 684,593,684 

684 1FUCZLK) 96,593,9b 

591 I F ( I CD ( 39 ) ) 688,693,688 

688 IFIIC2ER) 592,593,692 

592 IFIID2EK) 96,593,96 

593 KCY.C = KCYC +1 . .. 

1 PH =1 

IFIKCYC - I CD ( 16 ) ) 103,111,103 

103 IFIICYC - I ED (3,1)) 116,116,3171 
116 I CYC = 1CYC + I CD t 1 6 ) 

GO TO lo3 
111 LR .= . 1 

LK = 1 
00 TO 1 

1171 IF ( ICYC-ILi..) 117,1x7,1111 
1111 WRITE 0 J I Pu T ThPL 1 vj ,946 , kCY C 
00 TO 111 

- 11-7 .1 F ( i-.9-I.MO ) 96, 9b, 96 

98 K5 = K9 * ( K2 + 1 ) 

wRITF TAPE I RL T R » 1 2 E K » K 5 » I H A T ( K 3 ) » ( 1 A K ( L 2 ) , ( E AH ( L 1 , L2 ) 
1 , L 1 = 1 , K2 ) ,L2=1 ,K9) 

IF(IPH) 97,587,97. 

587 E 1 0 = K9 

. K5. ..= 6 

00 TO 586 

C.... CHECK FOR i'IORE. BATTERYO 

104 KCYC = u 

1 CYC = ICUt 14) 

IFIK3-K1) 95,106,95 

.--25 K5 .= K.2. * (JC2+1J. 

IF(K9> 109,105,109 

- 109 WRITE TAPE IRETR., I2ER ,K5 > 1 BAT < K3 )» ( IAR1L2) » (F.ARILl ,L2 ) 

1 , L 1 = 1 ,K2 ) , L2 = 1 ,K9 ) 

105 K3 = K3 + 1 

WRITE OUTPUT TAPE 1 0 , 952 , I BA T ! K3 ) 

ICC = 0 ~ 

I DD = 0 

97 K 1 0 = K9 

K9 =0 

IFIN=0 

_-26 ..CONTINUE , 

GO TO 71 

ALL DAT A EX TR ACTE D JE8.QM. CURRENT C ON TROL .CARD 

C.... WRITE LAST BLOCK. 

.106 I F ( K9 ) 108 ,107 ,108 

107 K9 = K1U 

K.lz.£,3.rl 

BACKSPACE IRETR 

. 108 K 5 = K9 * (K 2 + 1 ) 

WRITE TAPE IRETR, IONE*K5»I BAT ( K3 ) ,( 1 AR ( L2 ) , (FAR (LI ,L2 ) 

1, L 1 = 1 ,K2 ) ,L2=1,K9) 

END FILE IRETR ~ " ~ 

ijEMINP I R E TR 

REWIND I END 

REWIND IEND1 

PRINT 924,1 REQ 

WRITE OUTPUT TAP E 10, 943,1 REQ 

PAUSE 

C... CHECK FOR ADDITIONAL CONTROL CARDS 


1 

1 

1 



1 
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GO TO 6 

.. OUT CARD KEuUES.i .. 

FCYCLE = 100(14) 

F I.NC . . . = I CL> ( 15) - - 

PC ENT = I CO ( 1 9 ) 

OCY = 0. 

PCt.NT = PCENT/100. .. - - 

, CALCULATE THE NO. OF ITEMS THAT '-'ILL FIT INTO A 5C0 WORD AR 
, LEAST SO. FIT 

IF ( ICD( 38 ) -1 ) 222 .220.222 

1 NO = 5O0/U2*6 + 2) 

KwD = .102 * 5 

LC = XLOCF ( COLF 1 ( 12) ) 

LZ = 3 . . - 

, BAT 1 FRY OK CELL CYCLE KLUUEST 

. IF.(IC0(42)J. 6»l*v , -• 

, CELL CYCLE » LOCATE CELL FIELD 
I F ( I C D ( 2 0 ) ) 191,193,191 

I F ( I CD ( 2 0 ) -10) 192,193,193 

, CHARGE OK DISCHARGE 

IF ( I CD ( 17 )-l ) 239,197,239 

.. I C ELL , = . J CD1.2.Q.E+.15 

GO TO 206 

ICELL = I CD (20 ) +41 , ... 

GO TO 206 

WRITE. OUTPUT TAPE 10,926 

PRINT 926 

REiv IML 1 ROB . — 

REWIND I END 

, REWIND IEND1 - - - - - 

GO TO 6 

. CELL CYCLE 

. SEARCH ENDCARD TAPE FOR BATTERY 

__J.FJ.lC.bim ) 

IF(IFIN) 662,549,562 

I F ( I BAT ( K_3 ) - IEN) 223*223*159 

READ TAPE 1 END * I F IN * 1 CNT * ( UED ( 1C * J ) , K = 1 * 1 1 ) * ( FED ( K . J 

1 J«l. I CNT ) 

IF l I CHK ) 566,551 ,566 

READ. TA PE 1E ND1 » I F IN , I CNT , ( ( IEP(K.J) ,K=1,11 ) , ( FED ( K_, 

1 J = l* I CNT ) 

J.FJ I CHK 1) 566, 5 51., 566 

IF(IEDU)-l) 568,623,568 

I F ( I BAT JK.3)— _ IEN) 5760,57 60,5 77 _ 


) » K = 1 , ! 


IF ( THAT ( K3 ) - IEN) 5760,57 60,5 77 

PRINT 919, A8 

_GQ. ..IQ. 5 IS 

PRINT 9 1 9 » A7 

. PAUSJL. 

GO TO 549 

I FI 1BA TIK3 ) - I EN ) 624.62 4,62 5 

I CHK = 1 

_G£_T&.Jf>_6 

I CHK 1 = 1 

DO 219 1 = 1, I_CNT 

1 = 1 

J F ( I C D ( 3 7 J ) 704,195*704 
r 1 F( I BATTk^T-TED ( 2 , I) j 207,211,210 
I F ( I BA T ( K3 ) - IEN) 555,555.556 

backspace'Tend 

G O TO 557 

‘BACKSPACE I END! 

IF(IFND) 208,209,208 
TFT TCDT42T niTrnoTI 3 1 
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GQ_JLO-iQi> 

204 WRITE OUTPUT TAPE 1 0 *92 1 * I OD ( 2 ) . I C YC , I BAT ( K3 ) 

LK=LZ — 

GO TO 506 

706 I FND 1 = 1 

C.... FIND BATTERY CYCLE 

IF ( J CY.C . - I_OD .( 3 ) ) 2 30_i2 3 1 ,.19 6 . 

'230 I F ( I L I M- I OD (31) 2510,2501*2501 

?510 lalEJJJE nilTPUT TAPF IO,946,KCYC 

1 F ( I BAT ( K3 ) - IOU) 702,702 ,703 

702 J3ACILSEACE JLOUI 

IF ( ICD( 38 ) -1 ) 289,313,289 

_ 7Q3l_ . .J3 A.CICS E AC. E. ...I.Q.U T_1 - - 

IF ( I CD ( 38 ) - 1 ) 289,313,289 

7401 WPTTF OUTPUT TAPF 10 ,929, 1 C YlliJliA-LJLLJ3.Lj.I-ttD.L3J 

OCY= I OD ( 3 ) 

_.C CHECK-.VALIDLTX..QE^CYXL£_. - - 

231 IDIF = IODI3) - I OD ( 9 ) 

.IF(XABSFUOLF) -2) 235,235,537 

C.... INVALID CYCLE 

744 WRITF OUTPUT TAPE QHL21 

C.... CHECK INVALID DATA REQUEST 

IF. U CD (4.1.) JlJ53.Ii. 1 95, $3.7.... _ — 

C.... LOCATE HALF CYCLE 

537 I PHAS E = 0 --- - — 

IF I ICD( 17 )-l ) 520,519,520 

519 I PHA .S£— = — L. 

TAMPH = DTAM 

TIQUR.^ JJH.Q 

520 L = 1 

fcZE R ’=' 0 

; 

1 F ( I PHASE ) 232,250,232 

C.... DISCHARGE... LOCATE CYCLE _ 

232 ' DO 234 L = J7 , ICNT 

“"'If ( FOOll ,~L ) )" 2 367234 ,2 36 

2 34 CQMimiE 

WRITE OUTPUT TAPE 10,933,100(3) 

I F ( .1 C DC 1 7 )-2 ) ...2_17.,54 1 ,.2 1 7 

541 I F ( I CD ( 38 ) — 1 ) 601,611,601 

_C. . . . CHARGE PHASE. MA KE SU R E F IRST ITEM I S CHAR GE 

'250 IF (FOD( 1 , L ) ) 251,236,251 

251 WRI TE OUTP UT TAPE 10,94 1,100(3.) 

I F ( I CD*( 17 7—2 ) 217 ,523 ,217 

C... . . CHECK_F0R j:ODE_ - 

236’ I F C I OD ( 7 ) ) 237,241,237 

23 7 PER = FOP ( 3 * L ) * F0D(5 ,L) » 100. / TAMPH 

I F ( I PH A S F ) 51 3,512,5 13 

512 WRITE OUT PUT TAP F IO,93 ? ,PFR, I OD ( 3 ) ,IBAT( K 3. )_, IQOJ 7J 

"GO TO "241 

513 WRITE OUTPUT TAPF 1 0 ,950 , PER , I OD ( 3 ) , I h AT ( K3 ) , 1.00(7.) 

C.... LEAST SQUARE FIT 

241 I F ( I CD ( 38 )“ 1 ) 245,298,245 

" ‘2 98 I F ( I C D ("i 8 ) - 1 T 24 5 , 2 9 9 ,245 

C . . . . CHE CK FI RS T HALF OF C YCLE 

245“ LL ="L " 
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IF t I CD ( 1 8 ) -2 ) 24.7 » 24.6.*24..7_ — 

246 TAMPH = TAMPH * PCENT 

. GO TO 26 0 

C.... CHECK LAST HALF OF CYCLE 

247 IF(ICD(18) - 8) 260,248.260. ..... . - 

248 3 AM PH = TAMPH - TAMPH * PCENT 

1 L-S T = 1 ... — - - - - 

C.... SKIP TO LAST PORTION OF CYCLE REQUESTED 

-24$ - DO- -2 5 5 - -L-L — ►_ iOlT- — . — 

LL = LL 

... I E ( n AivlP H ) 4 O l.» 4 QII aACLL — ..... . _. _ . _. 

400 DAMPH = FDD ( 3 »LL ) * FOD(5*LL> 

401 DAMPH = DAMPH +(FOD(3*LL) - FDD ( 3 * LL- 1 ) ) * ( FOD ( 5 . LL > +F0D ( 5 . LL- 1 ) > 

a / 2* _____ 

402 IF (BAMPH-DAMPK) 260 >260*256 

C.,.,. « CHG. OR . DISCHARGE . . : 

256 I F ( I PHASE ) 255.257*255 

257 IF(F.0D( 1.LL) ). .258*2 5 5 » 258 - - — 

258 J7 =LL- 1 

255 CONTINUE 

C. . . . PERCENT OF._CYCLE . REUUtSTED NuT_QN .TAPE 

259 PER = 1U0. -DAMPH* 100. /TAMPH 

I F ( I PHASE 15J.5 > 514l*5 1 5 - 

514 -vR I TE OUTPUT TAPE 10 ,934 * PER * IUD ( 3 ) , I b A T ( K3 ) * I OD ( 7 ) 

. „516 ER.LTJE - QL1T.RLLI... JLA PJE iO, t ,2A2 — 

IF ( ICDf 17 ) -2 ) 217.524*217 

.. 5.2.4 I F. ( I PH A S E ) 5 4 2 0. ,3 2 3 » 5 42 0 - - - — 

5420 IF(ICZFR) 541*217.541 

515. WRITE. OUTPUT .TaP.F I 0.* 9.5 1 .PER., I.OD (3 >.., I hALLK 3 ) * I OP (7) 

GO TO 516 

* SELF CX-RE.U.UE..ST.FP,..F I.E.LC3 _ — 

260 I F ( I CD (38 ) - 1 ) 261*299.261 

. 261 .. DO. 275 L = LL ,J.C_NT _ . 

L =L 

_C._. . . CHARGE CYCLE 

I F ( I PHASE ) 263 *262*263 

. JMKE.. §.URE..KiERe. Jiai_ JLtLJP ISCtiABGEJ&HASE... 

262 I F ( FOD ( 1 * L )) 268.263.268 

... 269_ 07 = L-l 

GO .TO 276 

263 _ IF(ILST) 413*4 14*41 3 

413 I LST =0 

fia.jn. 4.12 

414 IF (DAMPH) 411.410*411 

410 DAMP H = FOD ( 3 * L ) * F OD L3*EJ. 

GO TO 412 

41 1 DAMP H = D A MPH+( FOD( 3 *L ) -FuD l 3 >l-1 ) )■«• (FuD t 5 >L I -«-F uD ( 5 »L-1 ) ) /2 » 


412 I F ( TAMPH- DAMPH) 280*264.264 
2 64 K9 = K9 +1 


525 

I F ( I PHASE ) 525,526.525 

I AR ( K9 ) = - I OD ( 3 ) 


526 

GO TO 527 
IARIK9) = I OD ( 3 ) 


527 

ISK =0 


C • • • • 

K2 EQUALS NO. OF FIELDS TO EXTRACT . .. .. 



DO 265 K 12 = 1 * K2 
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K R = I F I ELD ( K 12 ) +1 

IF ( FOD( K8 » L ) ) 596*594*596 
59 A IF 1 5 T GNF I 1 . iFOOIKBil ) )) 59 5 . 5 9 6 . 596 

595 IF(ISK) 691*752*691 

J.52 I SK .hJ — 

I F t I PHASE ) 755 *753.755 

753 IF( ICC-UO.J. 6 9.Q_i_62.1 *.69-0 

690 ICC =ICC+1 

_ . , G Q--IQ-.25& 

755 IF(IDD-IO) 756.691.756 

7 56 LD.D .= lDD + 1 

754 WRITE OUTPUT TAPE 1 0 *954 . I AR < K9 ) . FOU ( 3 * L ) 

691.. .. 1FUC.UJ39.L)„69 2.*.596*.69 2_.. 

692 K9 =K9-1 

&Q.-XO £J.5_. 

596 F AR ( K 1 2 * K9 ) = FOD(K8*L) 


265 CONTINUE. - - - 

C CHECK TO SEE IF ARRAY IS RFADY TO WRITE 

IF(IPHASF) 598 *5.91*5 98 _ ... 

597 ICZFR = 1 

iL6iL_... . JEJ.1SK ). .55 9 jJ.5J J 5.9.9 

757 ICC =0 

GO TO 59.9. _ 

598 IDZER = 1 

_ IFUSK) 5 99. 7.5 8. .5 99 

758 IOD =0 

59 9 1 F ( INO -K9 ) _ 275 *26 7 *.27 5 ... 

267 K 5 = K 9 * ( K2 + 1 ) 

WRITE TAPE I RfTR * IZFR »K 5 « I BAT ( K31 a(,I.AI1.< L2J ».(.FAR (.L1.*.L2... 

1 1 ,Ll = l .<2 ) . L2 = i ,K9) 


1 


1 

1 

1 


KlQ_,.r_K9 
K9 = 0 


„_m 

C • • • • 

2 76 

C. . 

2 77 

517 

5 18 " 

C • • • • 

28'.)’’ 


cmuM 

J7 = L-l 

CHCCK IF CYCLE IS CODED.... 

I F ( 1 00 ( 7 ) 1277 *280 .277 

COMPUTE PERCENTAGE MISSING AT END OF CYCLE,. 

PER = lVo. - UAMPH * 100. / T Ai v :l J H 

IF ( IPHASE) 518*517*518 _ 

~;7~I Te’ouTpDt TAPF I0»934»PER* I0D(3) * IHAT(K3) *I0D(7 1 

GO TO 2.80 _ _ ... 

WRITE OUTPUT TAPE 10 .951 .PER . IOD! 3 ) . I BAT ( K3 > • IOD (7) 

CHECK FOR MORE CYCLE S W.I THIN TMJS .BATTERY 

IF (’ I PH AS eT 600 ,522.600 


5.22 iJLUi7JP_UJ.iz2J — 5_2 Jj*523.a5£1 

523 IPHASE =1 

TAMPH =. .D.TAiM 

TIDUR = DTID 


DAMP.H = 0* - - 

GO TO 232 

..5.2.L. ......I F U.c l EBI, 6Q3.»A?ltfefi3-. 

629 I F ( I CL) ( 39 1 ) 693 *603,693 

693 WRITE OUTPUT TAPF 10*958*100(3) 
GO TO -217 

600 I F ( I CtJ ( 39 ) 1 694,603.694 

' 694 IF < ICO! 17 )-2> 602.64' 1 .602 

601 IF! ICZFR) 6f3.602.6 U3 

" 602 ' IF(iiVFR’) ’ 6U3 *‘629.60 3'' 


1 


i 

r 


_i 

i 
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... .603 KC.Y.C- =. K£YC_ +1 I — 

IFIKCYC - I CD ( 16 ) ) 281,289,281 

_531 1 F X. I-CD.U2--U- 120 j. 123.. 12 0 

120 IF(OCY) 126.125.126 

- 4-24 I-F4. F-C YCO£.HOC XU 424 *1ZM 2-7- — ■ 

125 IFIFCYCLE -FED ( I CELL ♦ I ) ) 121.121.1270 

15.1 EC¥CL£-=-ECYCLE~-+_ E.I NC 

GO TO 120 

— 155 OGY^JX. 

1270 I F ( FCYCLE -ALIM) 224, 224. 1271 

127.1 WRITE OUTPUT TAPF. I-0-.S66.4CCYC 

GO TO 289 

L23 IF1 irvr - i nnnn 174 , 12 Aj 12A.Q 

124 I CYC = I CYC + I CD (15) 

GCL—ICL. 154 

1240 IF ( I CYC- ILIM) 224,224,1271 

- .589 LR =2 

LK =2 

282 KCYC = C 

Frvn r = rrmni 

I CYC = I CD t 1A ) 

CHECK. .FUR. . MEXJ_ J1AIT ER.Y 

I F ( K3 - Kl) 286,283,286 

_C. . ....... JlLD.JrflL . JUS.LJfiR LIE __ - - - 

286 IFIK9) 287,288.287 

C._.. , ■TlQmDilLie .a.UELLH 

287 K5 = K9 * ( K2+ 1 ) 

.. _ Hi RILE. TAPE. IRETR , IZER..K5 , I DAT ( K3 ) » ( 1ARI.L2) , .{.EAR.JLL.lj.L21 

1 »L1 = 1 »K2 ) » L2 = 1 »K9 ) 

K9 = 0 

I FND = U 

J.FND1 r 0 . . 

WRITE OUTPUT TAPE I 0 ,952 , I BA T ( K3 ) 

I DD = 0 

IFINl' =’ 0 1 

GO. TO 210. _. ._ 

283 I F ( K.9 ) 285,284,285 

284 BACKSPACE. I_RE.TR. . 

K3= K3-1 

28 5 K 5 "~= K9 * (K2+i) 

.. WR I T £._T A.P t IRETR ,.I Q\> F , r'5 , IbA 7 ( K 3 > , ( 1 AR ( L2.) ,.(.F AR . (Li, . 

1L2 ) ,L1=1 ,K2 ) ,L2=1 ,K9 ) 

.....5.64 FND FIL£. IRETR. L~ 

REWIND IRETR 

REWI ND .I.END_.;„ 

REWIND IEND1 1 

REWIND JOy T_.._ _ . 

REWIND I OUT! 1 

W.R..I.TE ...OUTPUT TAPE 1 0 ,943., I REQ 

PRINT 924, 1 REQ 

GO TO 6 
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_ C ..J_£AS.T iSUU A R E._ Ei-.T_Q.N -F 1.ELDS fiEilUESJED 

STORE DELTA TIME ARRAY 

299 L=U _ 

300 <12 =0 . i 

L = ITEM WITHIN ARRAY 

UQ 305_.LL=.L . * ICNT ._ _ 

C.... CHARGE OR DISCHARGE 

_ I F ( I RhAS.E-i 3X12 .j3D.L?.3-Q2 

C.... CHARGE . TEST IF WE ARE AT DISCHARGE 

3.0.1. _ LE.( FOPJ.l iLLJ.1 53.1 i2iih &3l_ 

531 J7 = LL-I 

... . ... . GO TO.. 3.0.3- - - - 

302 <12 = <12 +1 

J1EUL 1K12J..-5 EQ1LL3 J.LU — - - 

IF (DELTK12 ) ) 650.604.650 

6Q4 . IZER1 .=. 1 - - - - • -L 

650 IF(ILST) 651.420.651 

... 651. .. I L S T = 0 . . ' . . . — 

GO TO 66 G 

42fl I FmA'4Rill.._<t22jA2a t.iLLL.. 

421 DAMPH = FODI3.LL) * FOD(5*LL) 

... .GO. TO 3.05 . . ...... .. ..... .... : 

422 DAMPH = DAMPH+tFODl 3 .LL )-FOD( 3.LL-1 ) ) *( FOD < 5 » LL ) +FOD < 5 » LL-1 > >/2. 

. 6,6.0 I F ( DAKPH-DA.v.Ph ) 342 , 30 5,3.05 _ 

305 CONTINUE 

FitLOT'STORfc IN ARRAY "AND X EG LSUPF •Then" REPEAT FOR ALL 
C,...,, FI.ELDS ... — 

303 <9 = <9+1 

i f’ 1 1 pi Vase V 53 2 • 538 , 532 

...532 imS31r-.-lSlQ.i3) — - - - 

GO TO 533 

535 I A R ( K P. ) = I OO .1 3 ) — - 

533 IF(IZFRl) 606,614,606 1 

606 WRITE OUTPUT..JAP.E 10,955, IAR(<9) ... 1 

GO TO 331 1 

_ 6.16 FAp(.0)..= ..TJ.PUE._.. *■ 

<13 = <12 + L -1 

LX = XLOCF ( DEL T ( 1 ) ) _“..JC i 2. + _ 1 

LY = XLOCF ( FiELD ( 1 ) ) - <12 +1 

DO 315. <14 =1, <2 ..... 

<15 = 0 

*jl = i f..i E.uajyAi..+.i 

DO 325 LL =L , <13 

. I F .(.F OD (. K 8 ,. L L J ) 322. ,306,332 - — 

306 IZER1 = 1 

._ 33.2 ...<1.5 = < 1 5 .... +.!._. — — 

FIELD! K 15) = FOD(<8,LL) 

._3 Z5 £.0 y LLNUE. — 

IF(IZERl) 326,324,326 

324 TEST = LSUPF ( LX , L Y ,_< 12 , 3 ,LC ) _ 

"IF (TEST) " 329, 307, "329 ' 

307_ DO 308 J = 1 ,5 ... _. . . 

jc=jc + i 

FAR t JC ,<9 ) = COEFKJ) 

308 CONTINUE " 
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315 CONTINUE 

IF ( I ? H A S E ) 608,607,508 1 

C...., a FIELD CONTAINED Z FRO Du. SET! .IMG .UP-ARRAY . EOR-LEASJ Sa..EII 

326 WRITE OUTPUT TAPE 1 0 ,935 , 1 HAT ( K3 ) , I Ou ( 3 ) , I F I ELD ( K 14 ) 

GO TO 630 ..... ...... 1 . 

329 WRITE OUTPUT TAPE 10,936, IF I ELD (K14) , I BAT ( K3 ) , ICYCLE 

63.0 WRITE OUTPUT TAPE 1 0 ,938 , I F I ELD ( K14 ) _ 1 

a RITE OUTPUT TAPE 10,939, (FIELD(J) ,J=1»K15 ) 

331 WRITE OUTPUT -TaP-E_.I.O.*9.3. 2 , .._ 

WRITE OUTPUT TAPE 10, 939,(DELT (J),J=1,K12 ) 

K9 K.9-1 — . . - . . 

GO TO 6'J9 1 

607. IC2£R_.=. .1 — - - - J 

60 TO 609 1 

C CHECK TO SEE IF BUFFER IS FULL 

.609 IE 1 K9-J.N0 ) 320*309., 32.0 . i. 


309 K5 = K9 * ( KvvD + 2) 

wE.I I h IAPL 1 l<t. i K , I ZL'L » K5 , IUAX ( K3 I , ( 1 AR ( L 2 ) , FAu M 7 ) , I FAR ( I 1 , l7 1 , . 

1 L 1 = 1 *KWD ),L2 = 1,K9) 

K9 =0 

C.^_. . IS .CYCLE CODED 

32 U I F ( I OD ( 7 ) ) 335,31 1,335 

.COMPUTE.. PERCENT AT END Of CYCLE 

335 PER = 1 .'0. -DAMPH# 100. / TAMPH 

I E_U PHASE 53 9L, 5Ak. . - - - 

539 WRITE OUTPUT TAPE 10 , 934 , PER » IOD ( 3 ) , 1 BAT { K3 ) » 1 00 ( 7 ) 

GO. TO 534 . 1 

540 WRITE OUTPUT TAPE 1 0 , 95 1 , PER , IUD ( 3 ). , I uaT ( K3 ) , I OD ( 7 ) 

GQ TO 610 ... 1 

C.... CHECK FOR WORE CYCLES WITHIN THIS BATTERY 

...ill .„ . I F.U PHASE ) . 6.10 * 5 34.,. 610 L._ 

534 I F C I CD ( 17) -2) 536,535,536 

-.5 35 J PHASE =1 . 

TAMPH = DTAM 

TIDUR =. D.T ID. .. 

DAMPH=0. 

...GO. TO. 232 

536 IF(ICZER) 613,217,613 1 

. 610 . .IF < ICD( 17 1-2) . 6.12,6 li.,6 12 _ 1 

611 IF(ICZER) 613,612,613 1 

612 IF(IDZER) 6 13, 217,613 _ 1 

613 KCYC = KCYC+1 1 

IFJ.KCY c... -__.LC.DJ AALL-lRlxi LliZ&L ... ... 

313 LR = 2 

GO TO 1 

12 2. K.CY.C. = Q . . 

FCYCLE = I CD ( 14 ) 

C.... CHECK FOR NEXT batter” "" " 

IFI K3-K 1) 314,317,314 _ 

C.... DID WE JUST WR I TE 

... 314 I F ( K9 ) 3 1 6 , 3 21 , 316 

C. . . . NO DUMP BUFFER 

316 K5 -= K9 * ( KWP ± 2 ) 

WRITE TAPE IRETR,IZER»K5,IUAT(K3)»< IARIL2) ,FAQ(L2 ) , ( FAR ( LI »L2 ) , 
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... 1..L1 . =1_».K!WD> »L2 = 1 iK9 ) . _. . .. — - 

K 10 = K9 

321 K3=K3+1 

IFND1 = 0 

WRITE OUTPUT TAPE 1 0 , 9b2 » I BA T. ( K3 ) 

I FIN = ') 1 

GO TO 210 

317 . IFIK91... 319. 3.1 8-._3.19 . . . - - - - 

31 8 BACKSPACE IRETR 

K9 = K 10 _ - - 

319 K5 = K9 * ( KWD + 2) 

__W£1T£_.IAEJL . K3 J j.XIAR.U-21 jUEAQ1.U2.L*JL£AR1LL»1 

12) ,L1=1 »KWD ) » L2= 1 * K9 ) 

GO TO .564 ... ...... - - 1 

1 I F ( I C D ( 40 ) ) 5 04 » 506 ♦ 5 04 

.504 IF .( IRMGT J81) . 505? 5 0.6 *50.5. - • - 

505 I CD ( 14) = IRNGIJ8) 

FCXCLE 

I CD < 15) = IRNGU8 + 1) 

F.I.NC .= IRNGU8 + 1J ..._ .. 

I CD ( 16 ) = IRNGU8+2) 

J8 =J5t3 . . - - - 

KCYC = 0 

iac.ricp.UAi 

WRITE OUTPUT TAPE 10. 945 . I CD ( 14 ) . I CD ( 15 ) . I CD ( 16 ) 

JLI_M_ =, I_CD( 14). + .ICD_Q5 ). *.. (.1 CD.( lfiJ-.il - 

AL I M= I L I M 

_GO_ TO ( 117.2 24) .LR _ . 

506 fCD ( 14) = I G 1 

ICO! 15) * IQ2 

FINC = IG2 

I CD ( 16) = IG3 

ILIM = "lCD(14) + ICD ( 15 ) * ( I CD( 161-1) 

AL IM = I L I M 

J8 =1 

GO TO ( 104.282.322) .LK 

210 IF < I CD < 37 ) ) 219,195.219 

219 CONTINUE 

GO TO 206 

902 FO) TAT ( 1H 120X , 32HDAT A RETRIEVAL RUN. REQ UES T NO. 12) _ 

903 FORMAT’ ' < 1H05X .23HBATTERYS REQUESTED ARE 1214) 

904 FORMAT ( 6X , 2 1HST ART I NG CYCLE NO IS 14) 

905 FORMAT ( 6X» 13HINCREMENT IS I3.22H NUMtStR OF INCREMENTS 14) 

906 FORMAT ( 6X. 12HCHARGE PHASE) 

907 FORMAT t 6X . 15HD I SCHARGE PHASE) 

908 FORMAT (6X.36HLEAST SQUARE FIT ON REQUESTED FIELDS) 

909 FORMAT (6X.6HFIRST I2.27H PERCENT OF CYCLE REQUESTED) 

910 FORMAT (6X.5HLAST I2.27H PERCENT OF CYCLE REQUESTED) 

911 FORMAT (6X.31H100 PER CENT OF CYCLE REQUESTED) 

912 FORMAT ( 6X , 16HF I ELDS REQUEST ED22 1 4 ) 

913 FORMAT t 6X . 22H I NVAL 1 D DATA REQUESTED) 

914 FORMAT ( 6X.26HCELL CYCLE REQUEST ON CELL 1 5 ) 

915 FORMAT ( 6X» 11HEXPIRED DAYI4) 

916 FORMAT ( 6X » 22HENDCAR D DATA REQUESTED) 

“917 FORMAT ( 6X . 22H0UTCAR D DATA REQUESTED) ' 
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918 FOR SAT (6X.20HALL FIELDS NEC WEST ED ) 

919 FOR "AT <6X *1311 IN CONNECT TA! ; j;. SOI' IT CORRECT TAPE AND PUS 1 

1H START) L 

92 F OR” AT ( 1 H 0 6 X » 7t !PAT TER Y I A * 2 3 M IS i.jT jN EMDCAftO TAPE) 

921 FORMAT ( 1H06X.2UIWC ENCOUNTER;; - A T TE kY I 4 . 1 3H LOOKING F OK CYCLE I 5 

1.1 1H OF CATTERY I A ) 

- 922 FORMAT -1 1HU6X » 201 ICOULD NuT F I MU CYCLE I5»11H OF BATTERY I A » 1311 .OSIN 
1G CYCLE I 5 ) 

923 - FORMAT .i fc24T4iWVALl4J -DAT A . BAXTLRYI4. -AH. CYCLE I.5-* -5H- COD£X<m. 

1 5H TIMEI5) 

924 . ... F PRAIA I . T 6X..X6HPLLASL REMOVE b9 AND -LABEL. ... MOUNT. NEW b.9 AND.P 1 JSE 1 -ST 

1ART TO CONTINUE. REQUEST 1 5 . 13H IS COMPLETED) 

— 225 HOUMA I . ( 1M06.X* .... 7-HtiAl TELRYL4.23H IS.. NOT ON. OUTCARD TAPE > . 

926 FORMAT ( 1H1 6X . 94UCELL CYCLE REQUEST BUT CANNOT LOCATE CELL CYCLE F 

-1-IEED — ON — COMIROL.XAk[X«-CiCLP.XNG..-XO~N£XT-.-R£CIUCSXl 

927 FORMAT ( 1H06X . 2 1HWE ENCOUNTERD BATT L RY 1 4 » 23U LOOKING FOR CELL CYCL 

LEE6 . 0 .» 1 1 H OE. BATTERY 14 » 1 61 1 OF END CARD TAPE) .. .... - __ 

928 FORMAT ( II IG6X . 2 51 ICOU LD NOT FIND CELL CYCLFF6 • 0 * 1 1H OF BATTER YI 4.18 

. . .. . 1J E....U S I NG CELL. i_ FC LI. F 6 . 0 ) . _ . _. 

929 FORMAT ( 1H06X , 201 ICOULJ NOT FIND BATTERY CYCLE I 5 . 11H OF BATTERY 14 

Ea 2. 9.id QE ._ 0 UX.C AR.D .. TAPE .- US INC C YCLE15 

930 FORMAT ( 1H06X , 28HCOULD MOT FIND BATTERY CYCLE 15 » 11H OF BATTERY 1 4 

1.29H OF ENDCAKu TAPE. USING CYCLE 1 5.) . 

931 FORMAT (1H06X, 7HBA T TER Y 1 4 . 6H CYCLE 1 5 »24H OF OUTCARD TAPE INVALID 

U . 

932 FORMAT ( 1H06X . F5 . 1 » 34H PERCENT .AT THE BEGINNING OF CYCLE I 5 » 2 1EI IS 

. 1M.I.SS1N.G. ... LAT.T ER-Y.I 4 a.L4tE ERROR . CODE. I S L4-*L3H. Cl 1A2GE. PtlASEJ 

933 FORMAT ( 1H06X > 4 3UCOULD NOT FIND THE DISCHARGE PHASE OF CYCLE I 5 ) 

.934 FORMAT ( 1H06X slF5 . 1 » 28H PERCENT AT THE END OF CYCLE I 5 » 20H I S MI SS IN .. 

1G. BATTERY 1 4 » 14H ERROR CODE I S 1 4 . 1 3h .CHARGE PHASE) 

9.35 FORMAT J.1H06X, 7ri.ri.A T TER Y I 4 ,4 H ..CY.C 15 i23JH.0F OUTCARD JAPE. FIELD I 

14 * 39H CONTAINS ZERO. DID NOT COMPUTE L.S.FIT) 

236. FORMAL...! IH.Q6X »5.2r.l.IElE„L...S«.ElT. ROUTINE CAN'T FIT..A PGLYIWl-iIAL FoJl.f.I 

1 ELD I 4 * 8 H BATTERY 14 * 6H CYCLE I 5 ) 

937.. .FORMAT ( 1H06X » 2.4HDEL TA. TIME VALUES FOLLOW) 

938 FORMAT (1H06X. 5HF I ELDI 4 * 1411 VALUFS FOLLOW) 

. 939 FORMAT (3X.8E15.61 

940 FORMAT ( 13 1 1 * 14 » 1 3 » 14 . 1 1 » 1 1 ♦ 12 . 1 8 1 2 .2 I 1 *3 I 1 » I 3 > 

..... 9.41 FORMAT 1H.Q.6X.» . AOfciCQULD. ..NQI..JE.I.ND . THE_X.r!/>RGE- PHASE . OF.. CY.CLEJ.5J 

942 FORMAT ( 1HG6X > 60HPERCENT MISSING GREATER THAN PERCENT REOUESTED.CY 

1CLE SKIPPED! . _ 

943 FORMAT (28IH0 RETRIEVAL RFGUEST I 3 » 1 8H COMPLETED ) 

... 944 FORMAT (6(14 *13 *14)) . _ 

945 FORMAT < /////7X »36H**** NEW CYCLE GROUP. STARTING CYCLE 1 5 > 10H INCR 

1EMENTI 5 » 2 1H NUMBER OF ■ I NC R EMENTS I 5 ) 

946 FORMAT F 1H06X * 27H*** * CYCLE RANGE EXCEEDED. 15.17H CYCLES EX TR ACTE 

947 FORMAT ( 6X , 50HCYCLL RANGE EXCEtDED SEARCHING ENDCARU CELL CYCLE. I 5~ 

1 » 1 8H C YCLES EXTRACTED.) 

949 FORMAT ( 6X » 26HCHARGE AND DISCHARGE PHASE) 

25.0 FO RilAI .1 1H06X,F5 . 1 * 34H PERCENL AJ THE ..BEGINNING QF CYCL LI5»2QH IS 

1MISSING. BATTERY 1 4 . 1 4H ERROR CODF ISI4.17H. DISCHARGE PHASE) 

951 FORM AT ( 1 H0 6X . F5 . 1 » 2 8H P ERC ENT AT THE E ND QF._CYC.LEJ_5.i2QH ...IS Ml.SSXN. 

1G. BATTERY 1 4 » 1 4H ERROR CODE ISI4.17H. DISCHARGE PHASE) 

952 FO RMAT ( / / / / /30X2 4H ** ** ** * STARTING BA TTERYI 4» 8H .*****.**.. UJJ1.) 

953 FORMAT" ( 1H06X * 13HENDCARD CYCLE! 5*40H A FIELD REQUESTED CO 1 

1 NT . AINEP - Q ) 1 

954 FORMAT t 1H06X * 13HOUT CARD CYCLE I 5 » 1 1H DELTA TIMEF7.4.47H A FIELD R 1 
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1 COLICS TED -CONTAINED -0. ) _ ... 

FORMAT ( 1H06X.13HOUTCARD CYCLEI5.40H SKIPPED. DELTA TIME FIELD 

.ITAJNS-ZCKOJ 

FORMAT ( 1H06X * 1 1HCYCLE RANGE 12. 16H STARTING CYCLE I 5 » 1 1H 

1TI5 »22H . NUiTH.EK OF INCREMENTS 1 5. ) 

FORMAT (1H117X) 

FORMAT ( 1H06X » 13HOUT CARD CYCLEI5.72H SKIPPED.. EACH CARELJOh 
1LE HAD A RE DUE ST ED FIELD THAT CONTAINED -0) 
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2a. Pseudo Field Generator Program — Detailed Flow Chart (Continued) 
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2a. Pseudo Field Generator Program - Detailed Flow Chart (Continued) 
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Pseudo Field Generator Program — Detailed now Chart (Continued) 






























2b. Pseudo Field Generator Routine — Source Statements 


_ * CARDS COLUMN __ 

LIST 

— pseudo FIELD GENERATOR PROGRAM. 

COMMON- F F DO .if ED » F . 

DIMENSION FEOO ( 4500 ) ,FED(4500 ) »F < 130 ) »P ( 16 ) . I CD < 42 ) * I CARD ( 1200 > * 

1 FI 1 5.) iJ2 ( 5 L. E23-L5J_»_ F_4_L5.J £5-LSJ-» E6(5-l.a— EXL5_1_» — E 8 ( 5 ) t .. F. 9 15.) i — 

2 F 1 0 ( 5 ) * F 1 1 ( 5 ) » FI 2 ( 5 ) »F 13 ( 5 ) *F 14 ( 5 ) , F 1 5 ( 5 ) * F 1 6 ( 5 ) * F 17 { 5 ) » F 18 t 5 ) » 

3F X3X5-UE2 Of 6) .F21 I fU.»F.2,2 I 5 ) . F 23X5-UJ-2AJ -5-l*£.X5-L5-) » F 2- 6 1-5.J 

EQUIVALENCE <P(l)»Pl)»(P(2)*P2)»(P(3)*P3)»(P(4)*P4)*(Pt5)*P5)» 
UR-16) « P6 ) « ( PXJ-l_^74-.-LE-iaJ.jeai-.-I^a-94^^0-»4-P-lJJXi.-^aUl)-> LB-t-LX)-4-ELU-l *— 

2(P(12)»P12),(P(13)»P13),(P(14)*P14)»(P(15)*P15)*(P(16)»P16) 

EQU1VA LE.N CE— LF lli_t El-1 >AF_C-6.1^F-2-) j-C-EJ_ 1XL^£3-1 j_CF 1.1S.1-»JA-1->I£.12J-UES.)-^- 

11F<26).F6),(F<31),F7)»<F<36)»F8),<F(41),F9)» 

IXEXAiO^XOJ-tXEXM ) >F1 1 ) 

2»(F(56)»F12),(F(61)»F13)»(F(66).F14)»<F(7.1).F15)»(F(76)»F16)» 

3 l F ( 9 1 J * F 1 7 J * 1FJ86) 1F.L8 L.1F ( 9 1 ).» F 19.1.U.E (.9.6.1 ,F22_l.j (F LLQ1 ) ,F2JL1» .. 

4(F(106) »F22 ) , <F< 111 ) ,F23) » <F< 116) »F24) » <F< 121 ) ,F25) , (F < 126) *F26 ) 

_ EQUIVALENCE- LBFL AG , ItiFLAG) , ( AFLAG. ..I AFLAG 1 U END , I£NQ1 , 

1 ( CFLAG » ICFLAG ) 

10 IN = 2 

30 IRETR = 19 

.40 IE£EDQ._=~17 — 

SET PSEUDO FIELDS = 1.E36 INITIALLY. 

. —1QO U Q - .1 1 .U_L=X j_L6 

110 P(I) = 1.E36 

_1ZQ liEW IND._I.RE-T R - 

130 REWIND IPSEDO 

C R EAD CON T.I4Q.L -CARD. _ F-ELOM—INEUX. ._DAXA_IAP.E* — 

200 BFLAG = 6H$$$$$R 

210. ££LAG_=u 6H ,l.«f *.P - 

220 READ TAPE IRETR. AFLAG . ( I CD ( I ) . I = 1 .42 ) 

C.,..._IEST IF 2ND CONTROL. CARD. EX I STS. 

IF ( ICD< 39 ) -1 ) 222.221.222 

_221_ READ TAPE. I RETJR .» .(.FED. ( I.) . 1 = 1 .181 . 

FED( 19 1=0. 

Cj jl. *.» 6 J.ECJL.EA&E il£ FaF£_jWfcU JUNG . CIMIBUI — CARD.. 

222 WRITE OUTPUT TAPE 10.230 

230 ... FORMAT < 18H1 .. ._ 

C WRITE OUT CONTROL CARD. 

_ CALL CCARD (ICD.FED) 

C TEST IF INPUT* DATA TAPE IS A RETRIEVED OR PSEUDO FIELD DATA TAPE. 

_Cj_. ._. .i $$$$R ..= RETRIEVED . $SS$SP = PSEUDO FIELD . 

Ff ( IBFLAG-IAFLAG) 241,240,241 

S ET _AFLA6 = $$_$>$P.. . 

240 AFLAG = CFLAG 

L P = 0 

GO TO 250 

21 il 

242 LP = 16 

, C. . . . . SKJ P OVER PSEUDQ EQU ATION C ARD S ON i NPU-T._RSE.UPQ_. F IEU2. TAPE. 

READ TAPE IRETR, ICARD(l) 

C... ..WRITE CONTROL. RECORD. ON. PSEUDO F.I ELD. DATA JAPE., 

250 WRITE TAPE IPSEDO, AFL AG , ( I CD ( I ) , I = 1 , 42 ) 

. lF....LLCDJ.39.i.rH.2J5.1.tZ5.Q.QjLlSX 

2500 WRITE TAPE IPSEDO, ( FED ( I ) , I = 1 , 18 ) 
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2b. Pseudo Field Generator Routine — Source Statements (Continued) 


, T E MPORARY PROC E DUR E RFAQ EIEUOQ EQUA TION CARps FROM INPHT...TAPF , 

251 END = 3HEND 

2 12 1 = 12 

253 J = 1 

214 DO 259 JJ=1,1 00 _ 

255 READ INPUT TAPE IN.256, ( I CARD < K ) , K = J , I ) 1 

256 FORMAT (12A6) . _ . 

C. . . . . TEST FOR END OF PSEUDO EQUATION CARDS. 

212 IF ( ICARD1J+1 ) — IFND1 758.261. 75R | 

258 J * 1 + 1 

219 1 = 1 +12 ! 

C WRITE PSEUDO EQUATION CARDS ON PSEUDO FIELD DATA TAPE. 

211 .WRITE TAPE IPSEDO, I . ( I CARD ( K 1 ,K= 1 . II 

C WRITE OUT PSEUDO EQUATION CARDS. 

flR I T E OUTPUT TAPF 10 .267 . ( I CARD ( K ) , K = 1 , I) 

262 FORMAT (25H0 PSEUDO EQUATION CARDS //(2X.12A6)) 

jjt^DE T E R M I N E THE NUMBER OF FIELD S ON INPUT DAT A TAPF . 

300 JJ = (' 

. LX = 0 


3.01.. Ll_ =.. 2Q 

GO TO 310 

30.6 LI_= 21... ... 

310 DO 330 I = LI .38 

IF ...t ICDU L) .12.0, 340.., 320 __ _ _ 

320 Jj = JJ + 1 

J3jl .cmi.i-.mjE- : 

GO TO 360 

. C T E ST TO _D E T E RM I_N.E ._ IF ALL FIELDS ARE ON THE INPUT DAT A_ T APE . 

340 IF (JJ) 360,350.360 

-C._.....TEST_ JO DETERMINE IF DATA IS OUTCARD OR _ENDCARD DATA. 

350 I F ( I CD ( 1 ) ) 351,352,351 

...J J. ...= . .26 

GO TO 370 
352 JJ = 15 

C DETERMINE IF COEFFICIENTS EX I ST ON INPUT DAT A TAPE. 

360 _ IF ( I CD ( 18 )-l ) 370, _3 80, 370 

370 11=1 

. _LL_ =..5 » 

371 GO TO 400 

380 11=5 

’ll = i " “ " ~ ‘ ‘ 

_3 8 1_ L X = 1 

C READ COMPLETE RECORD OF TnPUT DATA TAPE. 

400 R EAD TA PE IRETR, Il .IX.IBA TT, .( FED ( I ) , 1=1 , IX ) 

C COMPUTE NO. OF CYCLES IN THIS RECORD. 

_ .. _... kCYC..= IX /_.< (,JJ*I_n+LX+LP+l.) _ 

c MOVE DATA FROM INPUT BUFFER TO OUTPUT BUFFER. 

C INITIALIZE F BLOCK W I TH_ DATA FROM INPUT DATA JAPE _FOR 1 CYCLE. 

IC = ( J J* I I ) +LX+ 1 

IX X = IC _ , 

510 I = i 

520 L = 1 

530 j = 1 

IL = C 

I L 1 = 0 

_540 DO_ 74o K. = 1,KCYC 

~~550'" 'DO 592' M~=J» fxx' " ” " 
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2b. Pseudo Field Generator Routine — Source Statements (Continued) 


560 JLEDOU J_ _= EEELl Hi 

570 IF (M-J-LX) 5800 » 580 .590 

56J0 LF tLXi — 5 OU >.58.00 *5.81 

5800 END = FED (M ) 

_-CXC_s.-LEND_ 

GO TO 592 

581 ..X-5 J-tOliU 

GO TO 592 

59X1 IF— 1X1— — 591 .59(10 .5900 

5900 IF ( I CD ( L I ) ) 5901 »5901 » 5902 

GO TO 5903 

59.02- I L 1 = LI+L-1 

I L 1 = ( I CD ( IL1>-1)*5 + 1 

L = L + l 

591.. F. 1 1 l 1 ) = FED(M) . . - - 

I L 1 = IL1 + 1 

. 592 1 -= 1+1 ... - - . 

C CALL SUBROUTINE TO CALCULATE PSEUDO FIELDS. 

XAU EUUAX I E-L»-F2 .. E8j-EAj.E5.iE 6 jF I »E8 xJF. 9 ,E1 0 s El 1 » E.L2.i£13 xEJJ* xE li.ElEj 

1 F17.F18.F19 .F20,F21.F22.F23.F24.F25»F26.X.P1.P2»P3*P4* 

2~ P5.» P6»P7jP8>P9*P10»Pll».P12»P13.»P.li.»P15»P16*CYC J 

C MOVE PSEUDO FIELD DATA INTO OUTPUT BUFFER. 

...6QD.. ..J1Q..620 IP_.= 1.16 _ 

610 F E DO ( I ) = P ( IP ) 

C SET UP INDICIES FOR NEXT CYCLE. 

7..00 J-= I XX +..1_+...LP .. . _ - 

IXX = (J-1>+1C 

C...7.WRITE OUTPUT BUFFER OI\l PSEUDO FIELD DATA TAPE. 


810 WRITE TAPE IP5EDO, I 1 . I . I BAT T . < F EDO < J > > J = 1 , 1 > 

C.... .TEST IF ..MORE. DA.IA cXii.iS..0N INPUT DATA TAPE* 

820 IF (111 8 30 »400 > 830 
550 END FILE IPSF.DO 


REWIND IRETK 

840 .REWIND I.E56D0, 

CALL EXIT 

o.. ...IMPROPER INPUT DATA. TAPE HAS BEEN... MOUNTED. WRITE ERROR .ST.AItM.6NT* 

900 PRINT 910 

910... FORMAT (5.0H1 Jj'iPAOPER ...INPUI. DATA TAPE HAS BEEN MOUNT ED •_ MOUNT. .PR.OP.E 
IK TAPE AND PUSH START. 

93 o” "GO TO 120 ” ” * ™ 
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2c. Control Card Flow Subroutine Used in Pseudo Generator Routine 
Data Listing Routine, Statistical Analysis Routine, 
and Printed Plot Routine 

Flow Charts and Source Statements 


2c. Control Card Flow Subroutine Used in Pseudo Generator Routine 

Data Listing Routine, Statistical Analysis Routine, and Printed Plot Routine 
Flow Charts and Source Statements (Continued) 


-Cfiftftft-- 


-StffrROtmNf CCARD* fCO • ! RNG Y ' ' 

DIMENSION I CD ( 431 .IB AT (151 * IFI ELDI 30 > . IRNGI 19 ) 

IRNG(19» =0 

HI- -ft—- 

DO ?3 l* 2.13 

24 

Kl* K1 +1 

23 

CONTINUE 

C • • • • 

rtrtuS StliocSTrir 

K2 *0 

3 

T P i 1 €fK 4W 3#4 t3 
111*21 

4 

111-20 

9 

Oft blmw •■■■•— — - — 

IF ( I CD! II) 31.32.31 

M 

KP ■ ~K2 — “ 

IFIEL0IK2 1 ■ ICO(I) 

32 

IFIK2) 40.38.40 

1 f7i T 

38 

ALL ‘ f!6iOfi ARP TO Of: 1 SELECTED 
IFUCOdll 35.34.35 

— frrrr 

34 

(1UTCAR0 

J*15 

C • • • • 

IFNDCARD 

36 

J * 26 

00 3T K2 ■!. J 

37 

rrltlflrK? > ■ Hr 

CONTINUE 

lEItCOIll) 42.41*42 

41 

( 

WKMt uuirm rurr — nn — m 

GO TO 43 

42 

43 

WRITE OUTPUT TAPE 10. 903. ( I BAT III .1-1. Kl) 

WRITE OUTPUT TAPE 10. 905. icO(lS) • ICDU6) 

44 

ii i inm r m * j.*- 

WRITE OUTPUT TAPE 10. 906 

45 

GO TO 46 1 

IF ( IC0( 171-21 511.510.511 

GO TO 46 

w — 

46 

mn i ir uu? rui i we — mnv r 
IF IICO(l)) 54.47.54 

48 

If 1 ICDf JO r ■11 49 v4Dv 49 
WRITE OUTPUT TAPE 10. 908 

49 

IF ( ICDI 18 ) 1 51.50.51 

GO TO 34 
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2c. Control Card Flow Subroutine Used in Pseudo Generator Routine 

Data Listing Routine, Statistical Analysis Routine, and Printed Plot Routine 
Flow Charts and Source Statements (Continued) 


Cf.ARf) - - 

5? WRITS OUTPUT TAPS I fir 909. ICDU9) 

GO TO 54 

- -54 WR I T S -OOT PU T - T A PS 1 0 .5 1 - 0 . S CO 41 9) — 

54 I F C ICO! 20 ) 1 56* 55 *56 

55 WR4TE OUTPUT -T APS IO. 515 

GO TO 57 

56 WRITS OUTPUT TAPE l Or 912.1 IEIELOI I ),I-l.K2> 

57 I F ( TCO *41 1 » 58,59,58 

58 WRI T E OUT P UT TA P F 10 . -9 43 

59 l F ( ICO ( 42 ) I 60.51,60 

~66- WR I TE OUTPUT -TAPE H>r9t4-«TOOf29T — 

61 WRITF OUTPUT TAPF 10 ,915 , I CD( 4 2 ) 

-- IP TTCOfA O IT 6 5,62.63 


63 I =1 1 

64 WRITE OUTPUT TAPE 10. 955, ICR, IRNGI I ) • IRNGI I*1 ) » IRNGI 1+2) 1 

- 1 

ICR = ICR *1 1 

TEfTRNGH ft 64,62,64 — - - 

6? RETURN I 


905 FO RM A T — H -U O 5 X -r2 3 HB A TT ER V S RE QU ES T E D - APE 1-21-41 

904 FORMAT C6X.21H STARTING CYCLE NO IS 141 

905 F O RM A T P6X.T30 INCREMENT TS - 1 3.22H--M-JMBER OF INCREMENTS 141 

906 FORMAT ( 6X . 1 2HC HARGE PHASE) 

907 FO RM A T 16X ,1 5HDIGCHARGE— PHASE) - — 

908 FORMAT (6X.36HLEAST SOUARE FIT ON REOUESTEO FIELDS! 

9P9 FOR M AT I6 X .6BP IRST I2 . 27 H PE RC EN T ' O F CYCL E R EO U E ST E O) 

910 FORMAT (6X.5HLAST I2.27H PERCENT OF CYCLE REOUESTEO) 

9-H FOR M AT 1 6 X.31 H 100 P ER C EN T O F CYCL E R E OU E ST EO) 

91? FORMAT (6X.16HFIEL0S RE0UESTE022I4 ) 

945 FORMAT- I6X-r?2HlNVALH>-0ATA— REOUESTEO) 

914 FORMAT (6X.35HCELL CYCLE REOUEST ON OUTCARD FIELDI5) 

045 FORMA T 1 6- )F ,4 4 UE X P 4 RE O - O A¥14T — 

916 FORMAT ( 6X , 22HEN0C ARD DATA REOUESTEO) 

941 FO R M AT ( 6 X , 22 H OUTCARD D A TA R E OU ES T E O) 

918 FORMAT C6X.20HALL FIELDS REOUESTEO) 

949 TOR M AT < 6 X . 2 6H C H ARGE A N D DISC H ARG E PHA S E) 

955 FORMAT 1 1H06X , 1 1 HC YCLE RANGEI2.16H ST ART I NG C YCLE 1 5, 11H I NCREMEN 1 

1T1 S. 3P H — N U MBE R O F 1 N G R E HE N T S 4 4 ) 1 

ENO( 1,0. 0.0, 0.0,1 ,0,0,1. 0.0. 0.0.0) 
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2c. Control Card Flow Subroutine Used in Pseudo Generator Routine, 

Data Listing Routine, Statistical Analysis Routine, and Printed Plot Routine 
Flow Charts and Source Statements 
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3. Data List Routine Flow Charts 



































































3t>. Data List Routine Source Statements 


* 

LIST8 



i ! 

* 

CARDS COLUMN 




* 





* 

FORM A P 




* 

LABE! . ... 




C PR I NT 





GENERALIZED. PRINT PROGRAM WHICH -WILL 

PRINT 

RFTRIFVFD OR PSFlJDt) 


C 

GENERATED TAPES 

D T MFNS I ON END ( 24 ) •OUT (14) .PPSI 1 200 1 

• PPt 

• TFT Ft ft ( 7 A ) • DA TA ( 4^00 ) . 

1 


1 HED(42) * I CD (.4 3 ) * I RNG ( 1 9 ) 



1 


EQUIVALENCE. IFR i IR) » (FPi IP 1 .. 





IREQ = 0 





I PR T = 19 




_ c. 

... F_ND__ CARD HFADIfclGS 





END(l) =6H T I DUR 

END ( Z ) . = 6 HA MP. M L. . 





END ( 3 ) =6HWAT MI 
_ END ( 4 ) =6H E EFF ... ... 




END ( 5 ) =6H AMP H 
—ENDUE ) =6H. ,UAT Jd 


END ( 7 ) =6H A V CUR 

EMt>(fl.).-.«6H KI...CUR 

END! 9) = 6HMX CUR 

. E ND(1U )=6HAV PWR 

END( 11 )=6HMI PWR 

END 1 12 ) =6Hi v lX PWR 

EN D ( 1 3 ) =6H C EFF 

_Ema^i=fiHEZi .. jj_. 

END ( 15) =6HC YC 0 

FND ( 16) =6HCYC 1 

FN D ( 17) =6HC YC 2 

EMEU 1 8 1 = 6HCYC. 3 

FND( 19 ) =6HCYC A 

END (20..)= 611CY C 3 .. ... . .... . .... 

FND ( 2 1 ) =6HC YC 6 

... END. < 2 2 J. =£ liC Y C.. .1.. 

END ( 23 ) =6HCVC 8 

£MD.(.2Al=mC.IE 2 

END ( 2 5 ) =6HMX VAR 

_ . END ( 26 ) =6HR T IME 

C OUTCARD HEADINGS 

OUT..! 1> «6H TIM E 

OUT ( 2 ) = 6HD TIME 

QDX13.1 H A Y__PWR_ 

OUT (4) = 6H CUR 

.OUT ( 5.1. =fiH.RRESS 

OUT (6) =6H V 0 

.OU.T..< 7 ) =.6H V. .1 

OUT ( 8 ) =6H V 2 

. _QUT. ( 9) =6H V 3 

OUT ( li. ) =6H V 4 

OU T U1U 6H V 6 

OUT ( 12 ) =6H V 6 
OUT ( 1? ) =6H V 7 
OUT ( 1 4 ) =6H V 8 

. OUT 1 I f) ) ~6H V 9 

FR =6H$$$$$R 
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8b. Data List Routine Source Statements — (C— Hmied) 


FP- =-6H5*-SS-$P - 

PPP =6HP 1-8 

-PPftP- — =3> HP . 9*-16 

PP(1) = 6H PI 

PP <-24 =£W--R2 

PP ( 3 ) = 6H P3 

PP- t-4 4 - — -6H — -P-4 

PP ( 5 ) =6H P5 

-PP4-64 =4M P6 

PP ( 7 ) =6H P7 

-&RL&4 P8 


PP ( 9 ) =6H P9 1 

PP4- 1Q) = - 6H -P3Xi -1 

PP(ll) =6H Pll 1 

EP-i 12.4 - -^6H— P.12 1 

PP(1?)=6HP13 1 

t>£U-l»4--g&H-R-lA - - -L 


PP( Ifc )--=6H— P16 1 

C READ FIRST RECORD CONTROL INFORMATION 

1 REWIND- LERI _ 

IF IN = 0 

... LSAV-.5-.99. - 

READ TAPE I PRT * I FLG * ( I CD < I ) , I = 1 * 43> 

±R£Q . .. .= . I RECl+.l - 

I F ( I CD ( 40 ) ) 34*33*34 

- .._3A READ — T.APL. IPRTJ. U-RNG < jaijJAs-Uia) 1 

C RETRIEVED OR PSEUDO 

3.3 ...IF. (I FLG -_LR)- 31*314*31 

30 WRITE OUTPUT TAPE 10* 900* IREO 

CALL CCARD 1 1 CD , LRNGJ 1 


GO TO 41 

1] IE.. II-ELG - IP.) 42.s.4_(Li32 — 

C INCORRECT TAPE 

22. PRINT _.9Q.l .. - - 

PAUSE 

.GO TO. .32 - — — 

40 WRITE OUTPUT TAPE 10*902* I REQ 

-..CALL.. C CARD, _ L LQLti.RNG.1 — 1 

C READ PSEUDO CARDS AND WRITE OFF LINE 

_RE AD....TAP E I PRI *.I NOj . ... < PPS .< .1 ) * I f 1 s.II'iOO . 

WRITE OUTPUT TAPE 10* 903 

WRITF OU TPUT TAPE IQ,. 90Aj (PPSdJ.t 1=1, 1NO). 

C DETERMINE WHICH FIELDS ARE USED IN ORDER TO SET UP FIELD HEADINGS 

WRIIR33UJRLLI-IAP.E_1Qj.9-L5 

K.2 =0 

LE .(. 1.C.QJ.4 2 X ) _2j Aj3. 

3 111=21 

4 II 1=20 

5 DQ .A5.JL3l U. J.3 6 

I F ( I CD t I ) ) 46*47.46 


46 _ __K2 =_. K2+1_ . 

IFIELDIK2) = iCD(I) 

. _ 4 5 CONTJ_NJJE 

47 I F ( K2 ) 55*48*95 

S AJJ — ELL£LDS_AB£-LQ BE .2ELE.C.IED.. 

48 I F < I CD < 1 ) ) 50 *49,50 
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3b.- Data List Routine Source Statements (Continued) 

C OUTCARD - - - - - - - - - — - 

49 J = 15 

C ENDCARD 

50 J = 26 

51 DO 52 K2 = 1 , J 

. IFIELDIK2) = K2 

52 CONTINUE 

K2 = K ^ . _ 

~’~c" SETUP FORMATS AND CALCULATE THE NO. OF ITEMS PER PAGE 

55-.- DO. 65. I -1 i K.2 • 

I = I 

I A = . IF I ELD ( I ) 

I F ( l CD ( 1 ) 161.62.61 

61 HEQUX..5_EttaUAJ - 

GO TO 65 

. 62 HED ( I ) .= OUT l IA) - - 

65 CONI INUE 

IPG = 0 

.C I £6.1 ES£JLLPa. AND_.HQX_LjuSjlE.« 

IF ( I F LG - IP ) 77.70.77 

_7D IF.lJ.aH38.) - 1.1 71.76.71 - — 

C YES . ADD P HEADINGS TO HED ( 1 1 

_-J.l DO 7.5 J= 1 .16 - .. - - 

72 I = 1+1 

dJETXLLL. =. -P-P-U.1 

75 CONTINUE 

.£ CALCULATJE.-J.TEMS...PLR. .PAGE .. ... _ - — 

78 11=1 

8JL _..IE_LL1_ rfl J ai±E.lj..l9 - — - - 

79 IPG = IPG +1 

GO TO 8o 

... 81 IPG = .I.P.G..+1 - - - . - - - 

GO TO 83 

_C TEST- L.S.f. _ , ....... — . ._ 

77 I F ( I CD t 38) - 1 1 78.74,78 

Ih ULULLUJ = PPP 

HED ( 1+2) = PPPP 

74 .IPG _= JC2_ 

IF ( IFLG -IP ) 83,82.83 

82 IPG__f IPG + 2 

C CALC. NO OF ITEMS PER PAGE. NON L.S.F. COUNT INCLUDES HEADING 

83 INO = 55 /(IPG + 1 ) 

C READ DATA 

M I.£AG._=_1 

89 IF( IFIN) 140,87.140 

87 RF AD TAPE I PR T . I F I N , I CNT . I BA T . ( DAT A ( L 1 ) , L 1 = 1 , I CNI. 1 

I F ( IBAT-ISAV) 84,85,84 

QJt I S AV= I BAT 

HDFLG=0 

85 LP =0 _ . 

LX = 0 

_____ II L_1 _ .. _ 

IF ( IFLG - IP j 91.90.91 

90 LP = 16 

91 IF <ICD<38> " 




1 

1 


1 


1 
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. 3b..JData List Routine Source Statements (Continued) . ... _ 

92 . LX =1 — 

I I =5 

- . J5 = K2 * I l- * 1 + -LX— +-L-P- _ 

93 KCY = I CNT / ( ( K2 * I I ) +1 +LX + LP i 

' IF- ( ICD( 38) -1) • 94,11L,94 - .. 

94 J1 = 1 

J8 = K2 + LP + 1 
DO loO KK =1 * K.CY 

- IF— (HOF-L-G-) -96 ♦ 95-* 96- - - _ _ - — 

95 WRITE OUTPUT TAPE 10*905, 1PAG 

- WRITE -OUTPUT.. TAPE. 10.906,-- LHEDUO-.K.= l.»-L J 

WRITE OUTPUT TAPE 10,913 

IPCNT = 1 

C wk I T E -DA T A . — . - ■ - - . 

HDFLG =1 

96 ... WRI TE OUTPUI 1 APE 1 0,90.8 , LliAT . , DATA! J 1 )..* COAT A.U2J .., J2=U3-» J41. _..... 

WRITE OUTPUT TAPE 10,913 

J3 = J 3+ J8 

.. _ . J4=J4+J8 . .. . - . 

IPCNT = IPCNT + 1 

..IF ( IPCNT - 1 NO ) ...1.00 ,9.7,100 .. 

97 HDFLG = 0 

LOO.. CQjMI-I HUE. - — - — 

GO TO 89 

- C ..SETUP . LEAST. SQUARE HEADINGS ... 

110 J1 = 1 

J4 = 3 

DO 130 K.K =1 , KCY 

_ .IF. (HDFLG) 112,111,112 

111 WRITE OUTPUT TAPE 10,905, IPAG 

. WRITE OUTPUT. IARE... 1.0 ,9.09 

IPAG = IPAG + 1 

IPCNT = 0 

C WRITE DATA . _. 

112 J7 =1 

WRITE OUTPU T _ TAPE 1 0 ,9 10, IB.AI , DAT A U 1J_, HED( 1.). » < DAT A ( J3 ) ., J 3 = J4 , J6 )_ , 
lDATAt J2) 

i.iA.. ... i ej J 7._-.. . u sjaixau 

113 J7 = J7+1 

J6. = J 6 4- 5 .. ... 

J4 - J4 +5 

...WRI T L JOUIP.UJ_I_A£ E. 1CU9.L1, _.JdEUiU.7J^.__LUA TAJ JE1,U2L=U.4_, J.6.L 

GO TO 114 

£ E-LEUIS. JL QMP . L E I £. D . „ T.E.S I RSEUDfl 

117 I F ( I F LG - IP ) 122,118,122 

.11.8 . .. + 6 — 

J7 = J7 + 1 

ICT = 0 

_ .102 WfU-IE-ULL lPUT TA PE . ILL, 91 2 ? HE P i 17 ) . i lUalA ( J3 ) ,J2=J4,J6) 

I F ( ICT) 103,101,103 
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— lOl LCI— = — I 

J6 = J6 + 8 



J7 = J7 + 1 

Gd-TO .102. .. _ 



103 

122 

123 

J4 = J4 + 10 

GO TO 123 ...._ 

J4 = J4 + 7 

J6 = -Jf> + 7_. . 

— - - ' 



J1 = J1 + Jb 

J2 = J2 + J5. . 




WRITE OUTPUT Tape 

10. 913 



. 1PCNT = .I.RCN.I .*1 

1 F ( IPCNT - 1NO ) 

130.124.130 

' 


12M..- _tlU£iJj_. = — li 

13') CONTINUE 

. GO TO 89 ... ... ._ . 

140 REWIND I PKT 

WRITE. OUT P.U I....IA P£_LQ ..214 

PRINT 920 

PAUSE. 

GO TO 1 

9Q0 FORMAT i 1H1 20X . 1 1HREU UES T N0. I4.36H . P RINT OUT OF A .RETiUtVEU .DATA 

1 TAPE/// ) 

... 901. FORMAT ( 6X5 5H I NCOKREC T INPUT TAPE. MOUNT CORREC T TAPE AND PUSH S.TA ....... 

1RT ) 

.2.Q2 J r UBi:lAI_.(.IHiSQ^.UElilE.UULST UCb».L{uA3llt.JP R INT O UT U F .A. PSEUDlAUt^EliAI 

1ED DATA TAPE/// ) 

.9.03. FORMAT .(1H0.2.0X* 3 IhPSEUUU SOURCE SIAIEiiEiilS.. FOLLOW L 1 

904 FORMAT ( 1CX , 12A6 ) 

. 9.08. . FORMAT J.lH12SX.>1.3Hb.A..T..I t R Y11X> 7HT . E.S...1 1 IX » 7HD A T A34X , 

1 4HPAGEI5//) 

9.0.6 tQBMAT ( 12H .liALI_.QCC ITUAXjlS. IA.0jLS/Ua.llU/^X^dAAX.ta.(A(4JL8.XliStlE/ 

1 12X.1H34X.8IA6.8X) . 1H3/ 12X ♦ 1H44X .8 ( A6 »8X ) . Irl4/ 12X . 1H54X * 8 ( A6 > 8X ) , 

1 1HS/12X » lilfe4X}2 (A6»sx ) ) .. . . 

908 FORMAT (2X.12. Ib»3XIHl IP 8E 1 4 . 5 ♦ 4X . 1H1 / 1 2X . II I28E14. 3 »4X * 1H2 / 

1 1 2.X . 1 H3 8 1 1 4 , & » 4X » 1H. 3/ 1 2 X ».1H4 8 1 14, b «4X ♦. 1.H4/ 12X . 1H b8E 1 4. .5 »4X.».1HS./ 

1 12X.1H62E14.5) 


.9.02 FORMAT,.! 8 4H _MIX -£££_ _fl.U_.NA .DEV.. X3 

1X2 X C 24X » 1 GHT I ME DUR.//) 


910 

911 
912.. 
913 
914 . 

91b 

920 


FORMAT J 2X , I 2 »3X , I b ,_2X . A6 . .1 P.5E.1 A.f.t 14 X.iE 1A«.S. ) . 
FORMAT < 14X,A6»lP5E14.b) 

FORMAT . (14X.A6.1 P8E1 4.5) 

FORMAT ( 1 8 X ) 


FOR MAT C1H 1 20X. 47H.. ... . 

"FORMAT ! 1H020X » 50HF I ELDS 

1 T H ) 

FORMAT (SX.43HPUSH START 
END 


PRINT R EQUEST COMPLETED ...j. 

NOT USED WILL HAVE THE VALUE 10 TO THE 36 

IF ANOTHER TAPE IS TO bE PROCESSED) 


J. 

1 

_u*_ 

1 

1 . 

1 
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4. Statistical Analysis Routine 



4 


General Flow Charts 


CALC. 

SUBROUTINE 


PRNT 

SUBROUTINE 


CALC 

SUBROUTINE 


PRNT 

SUBROUTINE 


CALC 

SUBROUTINE 


PRNT 

SUBROUTINE 


CALC 

SUBROUTINE 
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4. General Flow Charts (Continued) 
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4a. Statistical Analysis Routine Flow Charts - Main Program (Continued) 



No 


JPF = JP 
P= IHP 
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4a. Statistical Analysis Routine Flow Charts - Main Program (Continued) 



C-60 










4a. Statistical Analysis Routine Flow Charts - Main Program (Continued) 
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4a. Statistical Analysis Routine Source Statements - Main Program 


* . CARDS. COLUMN . 

* SYMBOL TABLE 

*- LISWL 

* LABEL 

C MALM PRlGR/vM FOR FINAL XTAT. -ANAL YS I S. ROUXLNF.J 

COMMON BUF , I T , I F , I CD , I C ARD , I FLD » I PFLD » I FFT » I FPFT , NFFT .END »P » F » BLK , 
: ._ FL p ,£LRjJJ , JPjJJF jJPF. i_LI)£ P j.I.QR j.LO E. » iM j£2 j. imjU_jLX.LRj-lBAILjJXj-.j- 

2 ICNT »KCYC. IRAN 

CQi vUUN J ii . iryr .R .KFTA.SWLX-.Lr Y jCjUCXCjLjIjJ jXHAN-U.U AT .j- N B AT .1 1.12. — 

1 L3.K .KK.K2 ,K3 .NOVAK .NOBS »NCYC »X .XBAR .SIGMA. SB. V.NM1 , EMSQ »M » SUMWT . 
__2 JUL jSXIXH U l T-CH. PU1 jiSXR jSY . VMlN, V-MAXjNHAX .uMLN-,BLI AZ-.kMULjJUl-X - 

3 F INK »FF . 1PH1 * I I » JJN 

COMMON LSCYCj LSY , ANN .TEMP . lQnj_I_LM2j IDTjIFLjINjIQj IR.NLQCjNPSj 
1 R I IED .HE D .RBETA » R SB . END .OUT *PP » JA » I P » LC 

p t mf m s T n (\ | tuElA-5Ii 0 . ] i LI 1 A.2-1 . T F 1 A 2 1 . I LL ) (4 2) .I(~Akn(]? Q O-Lj- I F I.. L 1.A2X. 

1 IPFLD( 16) . IFFT ( 42) . 1FPFTI42) .NFFTt 42) .IRANI 19) 

DIMENSION JJLX42.) . I CY-CT 2 OL.R ( 50.50 ).j-SX5X)j-5 Q ) jAXSOj 50 L.-BX 5-0j 50 ). j .... 

1C ( 50.50) .X ( 50 ) , XBAR ( 50 ) . SB ( 5 0 ) »SWTX < 50 ) .180(4500) .BETA ( 50 ) 

D-LME-NS I ONX/ CSU-Lj-Sl-GilAI 5.Q.) J-F-E1.5C 1 . HFD X 5 .Q.L . -RE1E TH 50 ) , RB EI-AL5.0-) j 

1 RSB( 50) »END( 26 ) .OUT ( 15 ) .PP< 16 ) 

EO LLLUAI fmof LEND.jXE.NIL) .1 LlR.UBX-RXj.LFXR. . I F ,I, R) .(F.KF) . 1P.KP) . 

1 (BLK. I BLK) 

POUT V AIFNCE 1-BUE.lBU 1j_- LH.S.A tBiO . XX. XBAR) . (SL.TX.SB) ... 

C SET UP TA’PE NOS. 

IN = 2 

IR = 19 

£LR.. = - 6H.$1S$LR- — - • • 

FLP = 6 H I> $ $ T> $ P 

~C~ ...SET INPUT ARRAY IT = BLANKS. 

2 " ITU) = I BLK 

I D£P. = 0 

READ CONTROL CARD FROM SYSTEM INPUT TAPE (IN). 

READ .INPUT TAP-E.JNj.1000. IOP.IOF. (I T ( I ) . I F ( 1 ) ».L=.1j 2.01».FX».E2j I NJi 

100 0 FORMAT (211. 1X,20(A1,12)»2F4. 0.11) 

£. J. ..WBIT-C £ IKST— CONXRQ L...CAK D _ 0 N__SXS • Q U LP U I - J AP.E . UQLj. ~T~:7T 

WRITE OUTPUT TAPE 10.1001. I OP . I OF . ( I T ( I ) » I F ( I ) » I = 1 » 2 0 ) » F 1 , F2 , I ND 

1001 FORMAT ( 2 OH 1 RUN.. I..YPL D A TA . 0P..T • J.2.4X, .3 4.H SPEC I F I ED F.I ELDS . AND PSEUDO 

1FIELDS.26X. 2HF1.4X.2HF2.6X.3HIND //4X.I1»9X.I1.7X.20(A1»I2»1X). 

2 1 X » F 4 . 0. » 2 X » FA «-P t.6 X. ... 1 1 .) ... - - 

IF ( I OP-9 ) 5.4,5 

C. T... TEST FOR 2ND".' CONTROL CARD. 

5 IF ( I NiTJ... 110., 1.1 0,1. 00.. 

100 READ INPUT TAPE IN.1002,1 IT ( I ).IF( I ) ,1=21.42) 

100 2 FORM AT .(.2.2. < A 1 . J 2JX — - - 

C WRITE 2ND CONTROL CARD ON SYS. OUTPUT TAPE (10). 

’"RITE OUTPUT TAPF IQ,? l-0.03..i-..U.liXLU-EXLlj L=..£i.?it21 

T603 ~>OIL-1AT<//44X42HSPECIFIEi:> FIELDS AND PSEUDO FIELDS (CONT.)// 

1 22X, 22( A1.12.1X ) )_ 

C DETERMINE IF INPUT DATA MO. IS 19 OR 17. 

110 IF (IOP-3) 120,120,1 3‘\ -. - 

120 IDT = IR 

13~ ' I DT = I P 
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4a. Statistical Analysis Routine Source Statements — Main Program (Continued) 


Cm.* «.«.« K£AU~J0m-6i-NAU CtiM.XUOL.~XNF O&'iAXLOM . F ROM. . I-NPUT-.-DAT A -JAPE -t IDT)-. 

1 AO READ TAPE IDT. IFL.ICD 

C TFST IF MORE .CONXROJ 1 PELKL A T Ijm.-fJC.LSXS*. 

I F ( I CD (39 ) — 1 I 160. 150. 160 

15.Q READ-TAPE.. IDL. I RA,1 ( I ) .1=1 .18 ).. _ 

IRAN (19) =0 

.Ca.« *_».«WR1I£—CQN'LK0L I NFORtlATLON-.ON- .IAPE 10. - _ .. 

160 CALL CCARD (I CD. IRAN) 

ESL- CONI ROL-ILEG.-E. LAG- MS*... .1 NPUT . imN.LjP.X-LON 

IF (IFL-IFLR) 180.170.180 

1JN NPS =— O 

LP = 0 

... JZjlmjlm *.LESJ__LE I D T .1 S. .O.UJCARD : ..L«_S..». ..IYPIL*. 

IF ( I CD ( 1 ) ) 190.175.190 

123. LE- 1 .1 CD LUilrJJ.. .L9Jh-12fu 1 9.0 . 

C ERROR TAPE CANNOT HE PROCESSED. 

......116- OKI It .OuT.POT TAr.EL.IO.Uim. ... 

1004 FORMAT (9GH0INPUT DATA TAPE IS OUTCARD LEAST SO. WITHOUT PSEUDO FIE 

1 LDS.j ..HENCE _.NQ PROCESSING. POSS IbLEL. ). 

177 REWIND IDT 

-HR.IJ.ELjQ.UI P U I .IAEE-.JN.UUiL 

1116 FORMAT ( 1H0 > 32X .66H*#-******** END OF STATISTICAL ANALYSIS PROGRAM 0 
_ 1U TP U.T_#_J£ ****** ***__ _) __ _ 

PRINT" 1117 

1117 FQ RM AJ_ ±4 .QH 0 PUSH . S TART _ TO. . C ON J 1NU E WITH NEXT RUN*... ) 

PAUSE 

18U~" NPS = 1 

~T77777de7fRmY^ NFO • IS PRESENT ON IDT. 

190 I F ( I CD ( Al) ) 2 10 » 200 * 210 _ 

200 J = 20 

GO JLCLZ2SL- _ - ~ — 

210 J = 21 

22 0 _ __J J_ =_._0 

I F ( I CD ( J ) ) 260 * 2 60 >230 

2.3 0 DO__2„5 P_.I = J * 3 8 

I F { I CD ( I ) ) 310*310* 240 

240 JJ = JJ +1 

250 IFLD( JJ) = I CD ( I ) 

GO TO 31 0 

C DETERMINE IF IDT IS ENDCARD OR OUTCARD. 

260 IF ( I C D ( 1 ) ) 270*280*2 70 

270 JJ = 26 

TQ 29Q 

280 JJ = 15 

_22D DO 300 1=1* JJ 

300 IFLDU) = I 

C>> . .. DETER MINE IF IDT IS L . S. TYPE . 

310 LL = 1 

LX = 0 

IF ( I CD ( 1 ) ) 340*320*340 

320 IF ( I CD ( 18 ) -1 ) 340*330*340 

330 LL = 5 

LX = 1 

C DOES IDT CONTAIN PSEUDO FIELDS. 

340 IF (NPS) 341*410*341 

C* • • • • READ PSEUDO EQUATIONS FROM IDT. 


C-63 




500 CONTINUE 
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501 LF -ll-TUl — ,r_.K£) — 510 ,-5.02.* 5.1 Q 

5-02 JJN = JJN + 1 

„ MEET (JJN )= IF( I ) 

GO TO 470 

LLSI._ThO.SfL._F_I ELDS MET ..FOUND.*. _ 

510 IF (JJN) 520,530,520 

520 WRITE .OUTPUT .TAPE. L(L*1QQ6-,_._(.NFFT ( I ) , 1 = 1. JJN ) _ 

1006 FORMAT ( 63H0 THE FOLLOWING FIELDS WERE NOT FOUND ON THE INPUT DATA 

UAEE^..i...2iL'L.J 

530 GO TO (620,620,620,540) »I0F 

C. CHECK. SPEC . PS E U D O F I ELDS. -MQ.VE.. SPi-C^.PSEUDGS INTO. FINAL. TABLE . 

C PRINT LIST OF FIELDS REQUESTED BUT NOT FOUND ON IDT. 

5.40 _P. = 1HP .. 

JPF = 0 

JJN = 0 

- 

541 IF (IT(I)-KP) 550.570.550 

... ... 5.5.0. .1 F ( I T ( I l-IBLK) 3.6.0 .* 60.0 1 5 6.Q 

560 1=1+1 

GQ__IO.._S4J 

570 IF (JP) 571,591,571 

5.7J D.0 .590. J. _=l.j JP _.. 

IF ( I F ( I ) - IPFLD(J)) 590,580,590 

. . L5.8.0 JPF = JPF+1 

I FPFT (JPF ) = IPFLD(J) 

GO TO 56 0 

590 CONTINUE 

5_9J JJN_=_JJ1S_±._1 __ 

NFFT(JJN) = I F ( I ) 

GO. T.O. 630 

c list THOSE PSEUDOS not found. 

6DQ IF (JJN) 610,620,610 

610 WRITE OUTPUT TAPE 10,1007, (NFFT ( I ) , I =1 , JJN ) 

L002 FORMAL. ( 7.0H0..IHE FOLLOWING PSEUDO . FI ELDS WERt NO T FOU ND ON THE INP 

1UT DATA TAPE.../ 2514) 

C. ^j__..._CAN__A tl7 _ QAJA_.BE -PROCESSED.. 

620 IF ( JJF + JPF ) 640,630,640 

C NO DATA CAN BE PROCESSED. WRITE ERROR STATEMENT. 

630 WRITE OUTPUT TAPE 10,1008 

1008 F ORMA T (43H0 DATA CA N NOT BE PROCESSED. RUN TE RMINA TED . J 

GO TO 177 

C TEST IF ANY PSEUDOS ON OUTCARD L.S. TA PE. _ __ 

640 IF ( I CD ( 1 ) ) 670,650,670 

65 0 IF ( I CD ( 18 ) -1 ) 670,660,670 

660 IF (JPF ) 670,630,670 

C*.* . . ♦ CAN LINEAR CORRELAT ION BE RUM*. 

670 IF ( I OP-2 ) 800,690,680 

630 IF ( I OP-4 ) 690,800,69 0 

690 IF (JPF+JJF-2) 630,700,700 

C CAN MULTIPLE REGRESSION BE RUN. 

700 IF ( I OP- 3 ) 710,720,710 

710 IF ( I OP-6 ) 800,720,800 

720 IF (IT(l)-KF) 760,730,760 

I 730 I F (J JF) 731,630,731 

731 DO 740 I = 1, JJF 

IF (IFFT(I)-IF(l) ) 740,750,740 ^ 

r 740 CONTINUE 
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4a. Statistical Analysis Routine Source Statements - Main Program (Continued) 

GO TO 630 - 

750 I DEP = IFFT(I) 

. GO TO 8U0 

76U IF (IT(l)-KP) 630,770,630 

770 -IF- ( JPF ) 771,630,771 - - 

771 DO 780 I = 1 , JPF 

.. If (lEP-FTCII- I F ( 1 1 )- 780 1.790 , 780 

780 CONTINUE 

GO-XO- 630— — - 

790 IDEP = IFPFTl I ) 

800 -CA-LL READ- - - - — 

GO TO 177 
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4b. Statistical Analysis Routine Source Statements - Subroutine Read 

* CARDS COLUMN 

* LISTS 

* SYMBOL. I AB.LE - - - 

* LABEL 

CKlAD bJciRUUTIKb I" OK b T A T ♦ ANALYSIS PRQGKAK.* 
bUHKOUTlNb KbAU 

COi'u'iOi'J buF - * 1 F *1F, ICbjI^HKbjIbLb^lPrbL^lbFT * 1 1 ' A b T * i\ b b T *bi4L/»PsF _ .sbLk 

1 bLH*FLi\*JJ*JA*JJb 9 jkF 1 1oH» Ur * b 1 * r 2 » Iimu »lL »LX»LP > i DA T T 9 I 1* 

2 ICNT *kCYC s-1j\AJnl -- - - / ■ — 

OO.-'ii-' vJ 1 \l J J L 9 1 C Y C 9 K 9 bb 1 A 9 b k\ T X 9 L C V L * ni Y C 9 L 9 I 9 J 9 1 <, K Arl * 1 i i A 1 *i>ltjAT*bl»L2» 

1 L 3 9 n 5 i\K 9 n2 » i\3 9 NOV Ai\ »NvbO 9 MC Y C 9 X 9 XLb\A 9 0 1 Ui-.M 9 OL 9 V * Ni il 9 bi-ioO 9 r< 9 . oUi-it. T 

2 I‘OL ,oVTCH» SI T CM * Pi 1 1 * I OT P * SY * V« I N * V »*'AX *N. , AX » iv*. 1 f- » ti E T A Z » Ki *UL * JIJ.--P * 

3 b I N A 9 b b 9 1 P \ i I 9 I I 9 J J N 

COMMON cSCYC . YGY . Ar.N ♦ T EMP ♦ TEAi * T EM 2 » IDT. IKL * In. IO» 1R.NL0C.NPS. 

1 RHL 0 »Hc.L)j.I<BE1 n »kSu*.EMu».uuT ».WL» JA . IB i LC 
DIMENSION L.SI- ( A 5 CO ) . 1 T ( 42 ) .11 (42 ) , ICo( A 2 ) , ICaRO t 120'' ) » I r L U ( 4 2 ) . 

1 I P r L D 1 1 6 ) * 1 1 F-' T ( A 2 ) , 1 P FT T 142) »NFP T l A 2.) . I KAN ( 19 ) 

DIMENSION J JL ( 42 ) . I CYC t 20.) *K< 5u*5s ) . S( 5s *50 ) » A ( 50 , 5 r ' ) *b< 50.50 > . 
1C( 5s . SO ) * X ( 50 ) , XaAR ( 5o ) »ot> ( 50 ) »B,v TX t 5..0 ) »I B'J (4500 ) » BtT A ( 50 I 
DIMENSION V (50 ) .SIGMAt 50 ) »FH ( 50 ) .HED t 50) » RHLu (50) .KBETAt 50) . 

1 KSB l 50) »END( 26) »00 f 1 15 ) >PP( 16 ) -- - 

EOUl VALENCE ( EnD »,1Enl) ) » ( P Lp * I HLP ) , ( P LK . I FLK ) » ( F . KF ) > ( P »KP ) » 

1 (BLK.IbLk) - ... 

EQUIVALENCE (BOF.IBU). (R.S.A.o.C) , (X.XbAK). (SVTX.SB) 

IS THIS A CHARGE-DI SCHARGL RUN. ... 

IF ( I CD ( 1 7 ) -2 ) 111.110.111 

110 ... I PH =...1. - - ~ - ■ 

Ml = u 
GO TO 112 

111 I PH = 0 

set jp cycll Range iaulliicyg). 

112 IF (1 CD (1)) 13s.12s.13w 

12.0. _. ..IF l 1C01 181-1) , 1_45»13U».1A5 _. - 

130 J = 1 

ICYC(J) = . I CD (14) + ( 1CD( 15 ) * t ICD( 16 )-l > ) 

IF ( I CD ( 39 ) ) 140.146.140 

140 L = 1 

141 J = J + 1 

.... ...... LC.YCU1. =. IRANI U +.. (. I KAN..LL+ 1 ) * LI RAM LL+2J.-1.1 1 

IF ( I RAN (L + 3 ) ) 142* 143.142 

142 ... L. = L +3 

GO TO 141 

143 . .. NR AN = J 

GO 10 150 

146 NRAN = 1 

.C ..... SE T LOCAT ION . OF .DATA TO BE .EXTRACTED ,TABLE..._J JJL.) s... ..... 

150 IF (JJF) 151.260.151 

151 IF .( ICQ.t 41) ) 160.170,160 - 

160 KZ = 21 

”170 K.2 = 20 ” 

180 IF ( ICUtK.2) ) 190*230^190 . . _ 

190 ' K.3 = K.2 + JJ 

DO 220 K =_ l.JJF _ _ .. 

DO 20o kk=K2»K3 

IF ( I CD ( KK ) -IFFT(K)) 200.210,200 

'200 ' CONTINUE 


4b. 

Statistical Analysis Routine Source Statements - 

Subroutine Read (Continued) 


21- 0 
220 

III ( k 1 - KK1-K.2 +1 



CONTINUE 

GO TO ?50 -- 



230 
- 240 

DO 240 K = liJJF 
.1 jl ( K. ) = I FFT < K ) . 



250 
? a n 

IF (JPF) 260,280,260 
I = .I.1F +1 



DO 270 K= l.JPF 

III (II- TCPFTIIfl 4. t-LUti-i— 1 , 

270 

C r • 

1 = 1+1 

t ,,AET up i N I T^AI rnNn.l._T.lOh|<; FOR -PUN- — 



280 

NBAT = 99999 

Mfyc = i rye < 1 ) ... _ . . . 



S>A 1 

NOVAR = JJF + JPF 
pn inn i s i -wn\/iR 



29Q 

DO 290 J = 1, NOVAR 

PM . II - 0 . 



'inn 

SWTX (l)= 0. 

HPTAl I \ = 0- _ . 



NOBS = 0 
11 = ] 

II = 1 

if (i phi 3.1 q» 3 n n n*3.nn o . _ . 

r - . 

rn.VIPtiTF MO- OF WORDS TN omf fYfl F. 



3000 KCYC ss ( J J* LL ) + LX + LP + 1 



r . . 

L2 = 0 

THIS M.R. RUN. 



301 

IF ( I OP-3 ) 310,302,301 

IF ( I OP— 6 ) 310,302,310 . . 



C. • 

AFT IIP HFPFMHFNT \/AR I AU1 F TO RF FYIRATTFO L A A T - 



...IS PEP » VAR. A FIELD QR PSEUDO FIELD. 



302 

.303 

IF (IT(I)-KF) 303,304,303 
I = JJF + 1 ... . . . 



K.K = 2 

GO TO 30 5 . . __ _ 

304 

I = 1 
KK = 1 



305 

j = i 

jca. .= _ 




DO 3091 K= I ,193 


GO. J.0 ( 306 >3 090 ) .,J 

306 GO TO ( 307.308 ) . KK. 

.30.7. I F ( 1 PEP - IFF TtK)) 3091.309.309 1 

308 IF ( IDEP - JJL(K) + <JJ*LL)) 3091,309.3091 


™. 

3090 

™ L — — - 

K2 = J J L ( K ) 

JJL(K) = JJLLL+U ... . . ..... 



3091 

CONTINUE 

J JL. (NOVAR ) = K 2 _ 




. RF AD ONF RFCORD ' OF DATA FROM THE IDT. 



310 

RF AP TAPF IPT , I 1 , I CN T , I BAT , ( BUF (I) , I = 1 , I CNT ) 




•COMPUTE NO. OF CYCLES IN THIS RECORD. 




LI = 1 



C . . . . 

NCYC = ICNT/KCYC 

.TEST IF THIS INITIAL TIME THRU THIS ROUTINE. 



320 

321 

IF t NBAT-99999 ) 330,321,330 
NBAT = IBAT . 



LCYC = XABSFl IBUtLl ) ) 


4b. Statistical Analysis Routine Source Statements - Subroutine Read (Continued) 

. LSCYC = LCYC 

GO TO 4-31 

330 I E LXAtiS t . IJLUiUlLl I.1--&CYC )... 380*380*360 - 

360 IF (MCYC) 361 » 3 7 C *370 

,3j61 IF_.( XAELSF ( 1 BU ( LI ) ) - LCYC ) 400., 380, 403 ... .... ' . - 

370 II = II +1 

MCYC = I CYC Cl I ) 

GO TO 400 

....380 ... If ( LBAI. .--.NBA.L) 390,440,390 ... 

390 MCYC = ICYC(l) 

II = 1 . 

L TEST IF ANY DATA APPEARtu FOR THIS CYCLE RAimuE. 

40.0 .IF (NOIAS). 410*4300,410 . 

C CALL CALC oUbROUUNE To PEKFuki-i CALCULATIONS AND OUTPUT DATA. 

4 1.0 CALL. . CALC . .. . 

ZERO OUT BUFFERS. 

NOBS.. = . 0 . 

DO 430 I = l.NOVAR 
DO 420 J = l.NOVAR 
420 R ( I » J ) = 0. 

SW.IXI.I.1.=l..Q* - -- ... 

430 BETA! I ) = 0. 

. .4300.. .NBA! = IBAT . 

LSCYC = XABSF ( IBUILl ) ) 

431 I E.1 LSCYC -MCYC) 440.* .432.-1.4.32 

432 IF (MCYC) 440.433.433 

MCYC = I CYC (II) 

GO 10.43.1 

C EXTRACT DATA TO BE PROCFSSED. 

4.4.Q LCYC _= XABSF.ab.Ul.Lll.) 

IF ( I PH ) 441,444.442 

1 f tiButun ai 

442 IF (IBUILl) ) 443,471,444 

.442 ML_= 1 

GO TO 471 

_444 DO_450_I = 1 .NOVAR _ . .... _ _ _. ..... 

L3 = LI + JJL( I ) + LX 

itX Q X L L) — z BJJE-LLil — 

NOBS = NOBS +1 

D O 470 I = l.NOVA R 

SWTX ( I ) = SWTXt I ) + X ( I ) 

DO 4 60 J = l.NOVAR 

”460 S(I.J) = S(I,J) + (X(I) * X(J)) 

470 CONTINUE 

471 LI = LI + KCYC 

I F ( Ll-I CNT ) _3.2 QjA 8.0. j.4.811 - - 

C. .... TEST IF MORE DATA EXISTS ON IDT. 

480 IF ( I D 490 i310..i.4.3L 

C CALCULATE FINAL RESULTS. 

490 IF (NOBS) 500,510,500 

500 CALL CALC 

_51 0 IF ( I PH) 560,560.5 20 

520 IF (Ml) 560,560,525 

525 _ JREWI.ND JDT _ 

i ph = -i 

READ TAPE IDT ,DUM 

IF ( ICD ( 39) ) 530,540 ,530 

- 530 READ TAP-E-I-DI. »DUM 

540 IF (LP) 550,280,550 

MO k6-AO TAPE IDT -*OUM 

GO TO 280 

340 .--UE-TLftL ... - 

END 
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4c. Statistical Analysis Routine Source Statements — Subroutine Calc 


* CARDS ..COLUMN 

* SYMBOL TABLE 

* I I STB — 

* LABEL 

cca if. subroutine:. 

SUBROUTINE CALC 

COMMON BUF . I T . IF . ICLL.I CA8DjJ F.LU » I -P.FLD_.J_F El i_LF RE I .. NFF I_» EN Qj.R . F_._h L E » _ 

1 FLP »FLK . J J » JP » J JF » JPF » 1DEP ♦ I OP. IOF . F 1 »F2 » IND.LL »LX »LP * IBATT » I 1 » 

2 L.CN LUCO C aJ-RAJJ — — * 

COMMON JJL. 1CYC.R.BET A »SWTX »LCY C .MC Y C »L ♦ I * J »NKAN» I BAT .NtiAT .L1.L2. 

1 L3 «* |KK » K2 »K3 .NO VAR .NOBS .NCYC.X . XBARj.S-LGNA iStU.V »NM1.».EEIS.Q *M.i_SUIi>Jlx._ 

2 TOL »SWT CH » SI TCH ♦ PH I » I bTP » SY . VM I N » VmAX » NMAX .NM IN.BETAZ'. RMUL , JUMP , 

3 FINK.FF .IPHI.J I..JJN. 

COMMON LSCYC.YSY .ANN .TEMP . TEM »TEM2 . I DT . I FL . I N . 10 . IR.NLOC.NPS. 

1_ REI EI)jHE.D.>E.BEJAjuRikB.» £N,D.j UU.L. P P 1 J A 1 lEaLC 

DIMENSION BUF < 4500 ) . I T ( 42 ) ♦ I F ( 42 ) * I CD ( 42 ) »ICARD(1200) ♦ I FLD ( 42 ) . 

1 I PFLu ( 1 6 ) » I.F F I (42 I.tlEPF.T 142.) .NFET ( 42 l » I RAN 1 191. ... 

DIMENSION J JL ( 42 ) > I CYC ( 20 ) >R ( 50 » 50 ) . S( 50 .50 ) »A ( 50 *50 ) >B( 50*50) * 

1C( 50*50) »X( 50) >XRAk<50) *SB(50 ) >3WTX150.).*IBU(A5.n0) .BETA15CU 

DIMENSION V ( 50 ) *SIGMA( 50 ) *FF(50) *HED(50) *RHED(50) »RBETA(50) * 

_1. RSBl 5a)jt£fsUlt2.6J.tau.m2Ujdi£ .LL6JL 

EQUIVALENCE ( END. I END ) , ( FLP. IFLP) . ( FLR . I FLR ) » (F.KF) . (P »KP ) . 


1 (BLK.1BLKJ - - 

EQUIVALENCE (BUF»IBU)* (R.S.A.B.C) * (X.XBAR)* (SWTX.SB) 

CALCULATE VARIANCE ..COVARIANCE. MAI8IX._ 


100 M = NOBS 
N = NOVAR 

EMSU = SUMWT**2 -- - — ■ - — - 

DO 110 I =1. NOVAR 

DO 110 J =.J.tNQVAR ... - 

110 S(I.J) = (SUMWT * S(l.J) - SWTX(I) * SViTX(J)) / EMSQ 

Cu».* «-».«lCALC.ULAJ.E_.W£AN. — 

DO 120 I =1. NOVAR 

12 0 XBAR(I) = S*M XU.) /SUMWT .. - 

C. .. ..CALCULATE STANDARD DEVIATION. 

DP 13d 1=1. NOVAR . .... 

130 SIGMA ( i ) = SQRTF < S( I . I ) ) 

C. . ... .CAL L PRINT , llflU I I M TO OU TPUT MEAINi3^RJANC£-ANJI-SIAtiC> ARB ..I ) i . V L A T .L Q R«. 
K? =1 


CALL PRNT .... 

C IS LINEAR CORRELATION DESIRED. 

I F ( I OP- 1 ) 5.10 * 5.10 1 * 1 40 _ 

140 IF ( I OP-4 ) 145.510.145 

... c tJLf s * CAECULAT CS 2 kFF,l Cltfitk*. 

145 NM1 = NOVAR - 1 

DO 150 I. =1 »NM1 . .... - 

JA = 1+1 

. DO 150 J = J A* N 

R(I,J) = S ( I . J ) / ( SIGMA ( I )#SIGMA ( J ) ) 


15.0. K ( J »JL.1..=. RU-. J I 

DO 156 I =1. NOVAR 
156 R ( I > I ) = 1 __ 

C CALL PRINT ROUTINE TO 


OUTPUT LI NEAR CORRELAT ION COEFF I C I ENTS . 


K.3 =2 

CALL PRNT 

C IS STEPWISE MULTIPLE REGRESSION DESI RED. 

if Hop- 3) 510.1617160 
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160 IF (IOP-6) 510,161,510 

161 TOL = 0.001 

b W I C H = 0.G • - - — — 

170 SITCH = 1.0 

PHI = SUMVJT - 1.0 
I ST P = 1 

C STANDARD hRROR OF DEPENDENT VARIABLE. 

180 SY = SIGMA ( N ) * SQKTF ( K ( N »N ) * bCL-'W T / PHI ) 

IF (SUT.CH) 190.1-84.190 - 

181 Y SY = SY 

190 1=1 

VMIN = 10.0E20 

VMAX =0.0 - - 

NMIN = o 

NMAX = u - - •• — - 

200 IF I All, I) - TOL ) 260,260,210 

210 V ( I ) = ( A ( 1 ,N ) * A t ,M , I ) ) / A ( I , I ) 

IF <V(I) ) 240,260,220 
220 IT (V(l)-VMAX) 260,260,230 

230 VMAX = V ( I ) 

UMAX = I . . - - ■ 

bETAI I ) =0. 

GO TO 260 

C COEFFICIENTS OF INDEPENDENT VARIABLES. 

240 l)ETA(I) = ( b ( I » N ) * SIGMA(NJ) / SlGHA(l) 

STD. LKK . OF COEFFICIENTS. 

SB.II) = SY...* ...SORT Ft CI.L,.I ) / SUMWT ) / .SIGMA t I ) 

IF ( ABSF ( V t I ) ) - ABSF(VMIM) 250,260,260 
2 5 0 VM I N = V (I) 

NMIN = I 

260 IF (I - ( N— 1 ) ) 270,280,280 

270 I = 1+1 

GO TO 200 ... 

280 BETAZ = 0. 

DO 29b I = 1,NM1 

290 bETAZ = bETAZ + ( BE T A ( 1 ) * XUAR(l)) 

C CONSTANT TERM. . 

BETAZ = XbAR(N) - BETAZ 

C... ..DAVES INSERTION. - 

IF ( SWTCH ) 300,310,300 
C MULTIPLE R. 

300 RMUL = SQRTF (1. - R ( N » N ) ) 

C CALL PRINT .ROUTINE .FOR STEPWISE REGRESSION OUTPUT. 

K3 = 3 

... _ .... . CALL .PRNT ... ..... ...— 

ISTP = I STP + 1 

. 30.1. IF. ( SI rcm 310,460 ,31.0 _ 

310 F = ABSF (VMIN) * PHI / R t N » N ) 

IF (F-F2) 3 20., 33.0,33.0 - — 

320 K = NMIN 

PJU._=_EtU. +1*. 

C VARIABLE IS LEAVING. 

GO TO 360 

33.0. _ ... .IF. . IN MAX ) 33.2., 3.3.1 , 3.3 2 

331 NM AX = -1 

&L-IQ.-4.6.Q 


i 
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C **'**FINK= VMAX*PH I / (R (N »N) -VMAX ) 

TF 1FTNIK - FI ) 340 , 350.350 

340 PHI = PHI + 1. 

GO T 0...46.Q 

350 1C = NMAX 

SITCH = SUMWT- PHI - ANN 

X A/Afi-L AHI F I.S— EN.LER1MX 

JUMP = 1 

_3£>.Q _DO_.43.U. I =1 tN 

DO 430 J = 1 »N 

LF. (XrKJ. -3 .70*3.80x310 

370 IF (J-K) 390.400.390 

3ft O IF (-) -K) 4iatX2Q_^4.1Q 

390 A(I.J) = ( ( A(lC»K)*A( 1 .J ) )-( A< I »K)*A ( K. J) ) ) /A(K.K) 

GO IQ -43.0 

400 A ( I , N+l ) = (-1. *A( I .K> /A(K.K) ) 

GO TO 430 - 

410 A ( N+l » J ) = AIK , J ) /A ( K.K ) 

GQ_J-0. .4.3X1 

420 A ( N + l . K ) = 1.0 / A ( K » K ) 

430 _ CONTINUE _ 

DO 440 1=1. N 

440 A< JUKI. AU..H+1 ) . . - 

DO 450 J = 1 » N 

45X A.lXiJX_.=.. A_( JEEXiUi 

SWTCH = l.C 

-GO TO 180 

FINAL VARIANCE CONTRIBUTIONS. FINAL F LEVELS. 

460 DO 5 Oi- I = 1.NM1 _ 

IF ( V ( I ) ) 470.480.490 

. __47.il. E.F LI J . = .. V LL.) Pil I./L Jii.N » N 1 - 



GO TO 

500 

480 

. FF< I I 

= . o. 


GO TO 

50 0 

490 

FF ( I ) 

= V ( I ) 

500 

CONT INUE 


tP.HX_r.-P HI 

K3 = 4 

CALL PRNT 

510 RETURN 

END 
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Enter 



PRNT 
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4d. Statistical Analysis Routine - Subroutine PRNT (Continued) 


Call BATCYC 
Subroutine 
To Print 
BATT. No. and 
Cycle Range 


LC = LC + 2 


WRITE: / E1 

Tolerance Check Etc. \ 



Write Degrees 



Of Freedom. 




J = 2 + (NM 1 + 2)/3 


■<3 


^ Test " 
LC + J - 59 


Call ST 
Subroutine 
To Print 
Sub Title (3) 


Call BATCYC 
Subroutine 
To Print 
BATT. No. and 
Cycle Range 


LC = LC + 2 


Print Final Variances 
and Final F Levels. 


WRITE: 

HED (I), V (J), FF (l), 
I = 1, NM1 
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* CARDS..,- COLUMN 

* LIST8 

* SYMBOL -TABLE — — 

* LABEL 

.CPRNI -J?.RJJSLT ROUTI N E. - 

SUBROUTINE PRNT 

COMMON BUF.ill *1 F-i.I CD » ICARUj IELUj J-E£J-D.-» J.£-EXi±E££J-»N£E-X i F N D » P -if , BL K » - 

1 FLP»FLk»JJ,JP,JJF,JPF»IDEP»10P,I0F»Fl,F2»IND»LL»LX,LP»lBATT,Il, 

-2--I CNT .|t.CXC»JRAN 

COMMON JJL, ICYC.R.BETA.SWTX.LCYC.MCYC.L.I.J *NRAN ♦ I BAT » NBAT *L1»L2* 

2 TOL.SWTCH.SITCH.PHI , I STP * SY * VM I N * VMAX , NM AX , NM I N , BET AZ . RMUL , JUMP , 

.3 -F INK. »FF *.I PEL, 1 1 » JJN 

COMMON LSCYC.YSY » ANN .TEMP . TEM . T EM2 .IDT.IFL.IN. 1 0 . 1 R » NLOC , Nt>S » 

-1 RHED tHE-Dj-RBL T A > R.SH m-ENLUCUJ T » PP » IA.IP.I C 

DIMENSION BUF ( 4500 ) . I T ( 42 ) » I F ( 42 ) » I CD ( 42 ) ♦ I CARD ( 1200 ) . I FLU ( 42 ) . 

1 -IPFLD CJ.-6 ) . IFF I (42L.-IFPF.I 142 1 .NFFXU.-24-. .I.RANL1SU. 

DIMENSION JJL(42) , I C YC ( 20 ) »R( 5 0.50) »S(5C»50) * A ( 50 * 50 ) .6(50.50) . 

- lCt 50 .50 ) »Xl 50) jXBAKt 50 I » SB 1 5 0 ) , S* IX ( 50 ) » 1 6LU.450.3 1 xBLT A 150) 

DIMENSION V ( 50 ) » SIGMA (50) .FF ( 50 ) » HED t 50 ) .RHED ( 50 ) . RBETA ( 50 ) » 

l_R-SBC50.1..^END.l 2.6J -..QlCL115g..^££C-lBJ 

EQUIVALENCE (END. I END) » (FLP, IFLP) » ( FLR.IFLR) » (F.KF) » (P.KP) » 

1 ( BLK.IBUO - — - 

EQUIVALENCE (BUF.IBU). (R.S.A.U.C) . (X.XBAR). (SWTX.SB) 

. C.....TEST IF THIS THE FIRST TIME THRU THE PRINT ROUTINE. - - 

IF ( L2 ) 190,100.190 

C^.. ..^SEX-U£ Finn -ANIL PS FLJUa F IELD UEAD1 NG-S. 

100 IF ( JJF ) 110,141,110 

110 IF (ICD(ll) 120,130,120 - - 

C ENDCARD HEADINGS. 

.120 END ( 1 ! = 6HT I DUR . .. . 

END( 2 ) = 6HAMP MI 

ENDL3 1 S . 6HWA1 Ml 

END(4) = 6H E EFF 

.END ( 5 ) = 6H AMP H - - 

END ( 6 ) = 6H WAT H 

_ END ( 7 ) = 6HAV..CUR 

END ( 8 ) = 6HM I CUR 

... LNDL.9) .= 6HMX_.LUK_ . 

END ( 1 o ) = 6HAV PWR 

END (11)= 6HMI PWR . .... 

END (12)= 6HMX PWR 

END (13)= 6.H C EFF ..... 

END ( 14 ) = 6HE/I K 

END ( 16)= 6HCYC 1 

END ( 171= 6HCYC .2 

END ( 18)= 6HCYC 3 

. ... END ( 19)=. 6HCY.C 4 . 

FND(2.)= 6HCYC 5 

END ( 2 1 ) 3 ... 6HCYC 6 

END ( 22 ) = 6HCYC 7 

END (2.3)= 6HCYC 8 

END ( 24 ) = 6HCYC 9 

END (2 5.)= faHi iX.. VAR .. .. 

END l 26)= 6HK TIMfc 

.Cjuljl*..OE.L UL .tlLACl.tlG j -lOK -BLoLLLCLcD . ElLLoS . 

DO 121 I = 1 » J J F 
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J = IFFT ( I ) 

121 HED(I) = END ( J ) 

GO .JO 1A.G 

C OUTCARD HEADINGS. 

.13 0. OUT(l) = 6H TIME 
OUT ( 2 ) = 6HD TIME 
OUT 13) = 6HAV PWR 
OUT (A) = 6H CUR 
. OUT I 5 ) = .. 6HP.KE.3S 


OUT (6) = 6H 

V 

0 

..OU T ! 7) = 6H 

V 

1 

OUT (8) = 6H 

V 

2 

OUT (91 ...=. 6H 

V 

3 . 

OUT (10)= 6H 

V 

U 

OUT L1L)l.= --6H 

V 

.3 

OUT (12)= 6H 

V 

6 

OUT (13)= 6H 

V 

.7 

OUT (14)= 6H 

V 

8 

001(15)= 6H 

V 

V 


C. ... .SET UP HEADINGS FOR REQUESTED FIELDS. 

DO 131 I = 1 jJJF 

J = I FFT ( I ) 

131 HED ( I ) = OUT(J) . .... 

E WERE PSEUDO FIELDS KEUJESTFD. 

140. IF ( JPF ) 141,150,141 

C PSEUDO FIELD HEADINGS. 

.1.41 J2P(1) .= .411 . Pl..._ 


PP ( 2 ) = 

4H 

P2 

. ... ... PP ( 3 ) = 

4H 

P3 . . 

PP ( 4 ) = 

4H 

P4 

PP ( 5. ) = 

4H 

P5 

PP ( 6 } = 


P6 

„.._PP.< 7J ,= 

.AH 

PI. 

PP ( 8 ) = 

4H 

P8 

PP { 9 J = 

4H 

. P9 .. 

PP<10>= 

4H 

P10 

PP (11 ) = 

. 4H 

PU 

PP( 12 ) = 

4H 

P 12 

PRX12±= 

.AH. 

.£13 

PPU4> = 

4H 

P 14 

PP_( 15 ) = 


P 1 5 

PP( 16)= 

4H 

P16 


C. . . .. SET UP HEADINGS FOR REQUESTED PSEUDO FIELDS. 

J = JJF + 1 

aSLJAZ. l_r. IjlD.PJF _ 

K. 1 = IFPFT(I) 

- riLDlJl PP ( Kl ) _ .... . 

142 J = J + 1 

C i d.* ..,. IS. .THIS A. MULTI PLE REGRESSION RUN. 

150 IF(IDEP) 151.180,151 

C YES ~ SET DEPE N DENT VA RIABLE LA ST I N _A R RAY O F HE A DING S . 

151 P = 1 HP 

IF ( I T ( 1J_ _-KP i 1 60 , 170 5_1 60 _ 

160 DO 161 I = 1 , JJF 

IF ( IFF_T_( I J-IDEP ) 161,162.161 

161 CONTINUE' 

16 2 TEMP = H ED ( 1 ) _ 

J = NOVAR-T* 
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._DO- 463Ja=I,J- 

163 HED ( K1 ) = HED t K.l + 1 ) 

— — HE& W+-14~= — T-E-MP- — 

. GO TO 180 

4413 — 0 0 17 1 1 

IF (IDEP- IFPFT(I)) 171.172,171 

474 -CON-T I NU E - — - 

172 1=1+ JJF 

J. = NOUAR=-4. — 

TEMP = HED ( I ) 

0 0 1 7 3-X4— - — — - - 

173 HED(Kl) = HED ( K4 + 1 ) 

HED 1 J±41- -= TEMP - . .. - - 

180 L2 = 1 

L Imtt 1AI I 78 EAGE - OlUALU 

LC = 0 

.... C*..*. PRINT. MAIM TITLE. - 

CALL MT (LC ) 

C .TE-S7 FOR. TYPE OF OUTPUT — 

190 GO TO ( 191 *240 , 310,420 ) ,R3 

r ME AM .VAR I A UCEj-SID.... -D-EV-*. 

191 J = 3 + (NOVAK+1 ) /2 

... .C. 1ES-T LIME COUNT. VS. LXMES TO. BE_PkLNTED, -- -- - - 

IF (LC + J - 39) 210,210,200 

2110 CALL MT ..(LC) . . - - - 

210 CALL ST ( 1 ) 

c print ha r.i Aim - c4.a-E..-mmu£ — 

CALL BATCYC ( NBA T , LEC YC , LC YC > 

C.«... .PRINT MEAN VAR., STD. DEV. - - -• 

WRITE OUTPUT TAPE 1 0 , 1 u09 » ( HE D ( 1 ) » XBAR ( I ) * S ( I » I ) * SIGMA ( 1 ) , 

11=1 , NOVAK ) 

1009 FORMA 1 ( 2 ( 5X.3HF 1ELD »10X ,4HMEAN, 12X ,8HVARI ANCE ,8X ,9HSTD. DEV. ,1X1/ 

1 . C3X,A6.,JjX,.lPE12.J3.,3XjL12.4,3X,.EJL2.i2,3X,A6,3.^^L12 J .5 J .lUUi.lE^LiiX-, 

2 E 12.3 ) ) 

220 . LC = LC + J .. -- 

230 RETURN 

c ..... linear correlation coefficients. 

c 

... ,.C CALC , NO ,. OF L I hES . I..O. .LE.PKlil.I LD E.OK A S£I, , 

240 K 1 = NOVAK 

250 J = 3 + ( Kl + 5 ) / 6 . 

IF (J + LC - 39) 2/0 ,2 / 0,260 

26u ... CALL MT ( LC ) ... - 

CALL ST (2) 

.CALL— BA (.CYC. . ! iltiA I.? L. o.C Y C ? L.C.Y.CJ 

GO TO 280 

.2.70 CALL oT (2) — - 

280 LC = LC + J 

_C. ... .PR I NT A SET OF COEFFICIENTS, 

DO .300 L = 1*NM1 

Wli.iJJ; _ OUT PUJ IAP E 10. 410, ( HED ( 1 ) , R ( 1 ., L J. j.l.=_L->.NilVARl 

10 10 FORMAT ( / 6 ( IX , 3HF 1 ELD , 6X , 6HCOEFF . ,4X ) /(1X,A6,2X,1PE12.3,2X,A6,2X 

1 E12,9,2X,A6,2.X,E12.5,2X,A6,2X,E12.8,2X,A6,2X,E12.3»2X»A6,2X,E12,5 

2 ) ) 

C. • . • . DOFS ANOT HR SET OF DAT A EX I S..T • .._ . 

IF (L-NM1) 281,230,230 

C T EST 1 F...ANOJ HU< _ SL T . M.Y ... l. t. _P IU wTED u N THIS P AGE. 

281 M = Kl-1 
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J. = _2 +- -XK1.+-5 ) / 6 - - - 

IF (J +LC ~59) 300 * 30 0*290 

- 2£0 CALL^jX^O-— ■ ~~ - - - ™ — 

CALL ST ( 2 ) 

CALL. BAT CYC . .( Lib AT »L S.CY C » L C YC ) 

LC = LC + 2 

_ .300. LC = LC + J . ... - - 

GO TO 230 

_. jC*. LS^XCM^.. ~ ... , 

C 

.. . C*_..«l*_*CALC*_NO .Of .. LlikES . TO . , ,B.L. JjRIiXIELU.. _. - - 

310 IF (ISTP-1) 330*320*350 

.. 320. .LC =._ LC .+ 2 - ... - 

IF (LC - 59) 3 AO * 340 >3 30 

— . „-33-Ct CALl^.M.! LUX - ~ „ — 

CALL oT (3) 

CALL BATCYC ( flBAT *LSCYC *LCYC ) . ._ - 

LC = LC+2 

GQ .10. 3.5.0, .. 

340 CALL ST (3) 

1111 FORMAT ( 4 1 X » 9HDEP • VAR. * 2 X » A6 * 1 2X * 1. OH STD . ERROR * 2X * IP El 2. 5) 

.. 3.50 L. = 0 _. ... 

DO 360 I = 1 * NM1 

IF ( BETA ( I ) ) 351 *360*331 

351 L = L +1 

J&HED.LL1„=„HLDL1J __ - . ... 

KBETA(L) = BET A ( I ) 

RSB. (..L.) = SB (I.) 

360 CONTINUE 

. ... J = 3 L+2 ) / 3. ... .. 

IF ( J + LC - 59 ) 380*380*370 

™22jQ LCi— — — . - - - — _ _ — 

CALL ST (3) 

CALL. BATCY.C .. ( NBAJ »LSCYC * LCYC ). 

LC = LC + 2 

380 _ GO TO (390*4.00). *. JUMP 

390 TEM = 3 HEN VeR 

GO TO 410 

400 TEM = .5HREM0V . ..... . 

TEM2 = F 

410. _ WRITE OUTPU.L. JAPE 10 *1112* I EM * J STP * H E p ( K ) * TLM2 * SY * RMUL * BE T A.Z 

1112 FORMAT ( 12X*4HSTEP*6X *5HVAR. A 5 * 2HED * 10X * 7HF LEVEL * 8X * 22HSTD . ERR. 

1UFJB£P_#. ...V.AR • lOHMUkl I JANI... L4jtl QX.xA^.t.._, 

24 ( 10X * 1PE12 .5 ) ) 

WRITE. OUTPUT TAPE. 10*1113* ( RHLD ( I ) * RbtTA ( I ).*RSb( 1.).* I=1.*L ) 

1113 FORMAT ( 3 ( 5X * 5HF I ELD * 5X * 1 1HC0EFF I C I ENT *6X * 10HSTD. ERROR ) / 

_ 1 ..( 5 X * A6 * 4 X * 1 P El 2 • 3 * 4 X * E 1 2 • 5. * 4 X * A 6 * 4 X * E 1 2 • 5 *4 X * E 1_2 •.5.* 4 X * A 6 *4X*E12.5 

2*4X,E12.5 ) ) 

GQ TO 220 _ ,, 

C TOLERANCE CHECK. 

4.20 _ I F_ ( NMAX ) 421*424*424 __ _. 

421 IF ( LC+2 -59 ) 423*423*422 

422 CALL MT ( LC ) 

CALL ST (3) 

C^LJL_B AJTC Y C ( NBAJ * LSCYCjL CYC __ _ 

LC = LC + 2 
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4d. Statistical Analysis Routine - Source Statements (Continued) 


423 -WRITE- OUTPUT TAPE 10.11X6 

1116 FORMAT (111H0T0LERANCE CHECK. .. .REMAI NING IND. VARS. HAVE TOO HIGH 

lA-CQRR&LATIQM -WJ TH V A R . S . A I RE A tTY IN RFGR E SS I ON EQ I I A T I ON . 1 

LC = LC + 2 

X .. . ^XI-NAL VARIANCE- CORTR1BUT. LON- AND F 1NA1 £ -LEVELS. 

424 J = 2 + (NM1+21/3 

LF -(.LC- ± J S9 I AAQ-t 4 40 ,-4 30 

430 CALL MT ( LC ) 

CALL--ST — 

CALL BAT CYC < NBA T » LSCYC , LC YC ) 

LC — = L C + — 

440 WRITE OUTPUT TAPE 10,1114. <HEO( I )*V( I ) *FF( I ) .1=1. NM1 ) 

l FO RMAT ( 1 H fi.3 i 4X.SHE-1ELD .4X^X4HETNAL- -VAR1ANCE-^2X. 13HE-LNAL-E, L FVF l ) / 

1 (5X*A6>4X»1PE12.5»4X*E12.5»4X»A6»4X»E12.5»4X»E12.5»4X*A6»4X»E12.5 

2-il4 X, » E 1 2 . 5 — L-i — — 

C WRITE DEGREES OF FREEDOM. 

WRITE— QUIRUT. J APE .10, lllS.-lPHI 

1115 FORMAT ( 2 2H0 DEGREES OF FREEDOM = IS ) 

GO— TO 22-0 - 

END 


I 
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4e. Statistical Analysis Routine - Subroutines MT, BAT-CYC, ST, and FINI (Continued) 

* CARD S COL UMN 

* LIST8 

-- - * LARF.J 

CM T - MAIN TITLE ROUTINE. 

SU-BRQUT LNE-MX — LL.CJ. _____ _ _ 

IF <LC) 2*1*2 

10 = 3 

2 ... WRTTF OUTPUT TAPF I£U-JLi. .MP 

3 FORMAT ( 1H1 *27X * 7 2HS TAT ISTICAL ANALYSIS PR 

D-U— I-E-. .LL -1.-a21X j3HP A.GE. J.5 _J. _ 

MP = MP + 1 

LC. = _1 

IF (MP-500) 5*5*A 

4 josul j_ehii 

5 RETURN 

* CARDS COLUMN 

* LISTS . 

* LABEL 

CSI ^ — SJLlQ — XJLX L F.. SOUJAMj* .. 

SUBROUTINE ST (I) 

* jGO...TO...Qjl3.»_5-Ij.I. _ 

1 10 * 3 

WRITE OUTPU L J APE. Ip.*2._ ; 

2 FORMAT (25X*77Hfo E A N , VARIANCE AND 5 T A N D A 

LJL-D. QlJL.VLJL-A.J_I ._GLii „ . JL . . .. . 

GO TO 7 

2 WRITE OUTPUT TAPE JQ*A ..... 

A FORMAT (32X*63HL INEAR CORRELATION COEFFI 

1.C .1 E. M_I _S_J. __ . 

GO TO 7 

— 5 

6 FORMAT <A6X*38HS T E P W 1 S E REGRESSION ) 

.7 RETURN 

END 

CARDS COLUMN 

* LISTS 

* _ LABEL . . . .... ... _ 

C3ATCYC- BATTERY NO. CYCLE RANGE ROUTINE. 

SUBROUTINE BATCYC ( IBAJ*LSCYC >LCYC) 

WRITE OUTPUT TAPF 3 » 1 * I BA T *LSCYC * LC YC 

1 FOR MAT. { A 5 X * 7HBATT E RY . . I 2 _*1 OX * 1 1 H C Y C L E RANGE * I 5 * 1H- * I A ) 

RETURN 

* CARDS COLUMN 

LIST 8.. . 

* LARFL 

CFI.NJ ..._ 

SUBROUTINE FIN I 

— T — - 

END 
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Printer Plot Routine - General Flow Charts 
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5a. Printer Plot Routine - Flow Charts (Continued) 
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5a. Printer Plot Routine - Flow Charts (Continued) 










































5a. Printer Plot Routine - Flow Charts (Continued) 




















































5a. Printer Plot Routine - Flow Charts (Continued) 
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5a. Printer Plot Routine - Flow Charts (Continued) 
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5a. Printer Plot Routine - Flow Charts (Continued) 
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5a. Printer Plot Routine - Flow Charts (Continued) 
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5b. Printed Plot Routine - Source Statements 


SLOG 0 0 04-,; 3 . . .. . _. 

* BATTERY TEST DATA PLOT ROUTINE LRL P13P (4. F.) 

* LRL. (AL FLINN.) -PU3P- Li LOG. J ..... . - 

* PAUSE 

. * SYMBOL .TABLE . 

* CARDS COLUMN 

* LISTS ..... 

* FORM A P 

CBPP BATTERY TEST PRINTER PLOT KOlJT I ME 

. . UU4E.NSI-Q.N XMAGE-l-ZOG 0 1 * RliF ( 4 5 uG ) s ICAiiD ( 12 00 ) » I CD I 42 ) , IRANI 19)., 

1 A S ( 6 ) * I F ( 6 ) » I T ( 7 ) * NSC ALE ( 5 ) *AKF:( 5 ) , BKEU ( 6 ) ,ASYM{ 5 ) ,NFFUt 6 ) 5 

- - -MU- 1 EPF.T i 6 l .* I P-FLDt 16)-* ASY ( 5 ) * ARFUC S ) *.1 LOG ( 64- %MFf T. (.6 ) , 1 FF T ( 6 U 

1 I FLDt 26 > *X1 < 500 > *Y1 ( 5u0) * Y2 ( 500 > * Y3 ( 5uG ) * Y4< 600 ) , Y5 ( 500 ) , 

. L-URUU. XsXC&ZLLSaX+SSXHiyLl 

EQUIVALENCE ( F , KE ) * ( P * K P ) , ( L LK » I E LK ) , f 01 IF ^ T HU ) , ( FLR , I FLR ) , 

I t FL-P ♦ IFLP ) ■ - - . - 

C SET UP TAPE NOS • 

IX)-.. = 3 - . ... - - — - 

IN = 2 

IR = 19 

FLR = 6 HSiiSiAft . - - 

FLP = 6HSSSSSP 

P = 1 H P 
ATT = 6HTUE 

..ATT l.= 6hL.„X ..- X. - - 

ATT 2 =6M VA 

ATT 3. = 6 H R I A B L E 

ATT4=6H FIELD 

SSYMt I ) = BLK 

SSY.M (.2. 1 =...JBL& - ... 

SSYMt 3) = ATT 

SSlY ii L4J . ...= _ALI1 

SSYMt 5) = ATT 2 

SSYM t 7 ) = ATT4 

10 ~ I CRN = 0 


ileo 

I2 = u 



READ INPUT TAPE I N , 1 00 G , I OP 5 < NSC ALE ( I ) * I = 1 *5 ) tIMHL *NSBH»NVL*NS6V* 


1 IT ( 1 ) * I F ( 1 ) , ( I T ( J 1 * T F t J 1 » AS t J ) « J=2,6) 


1000 

FORMAT (61 1 IX » 12) ,1X.A1.I2»5(A1,I2 
BACKSPACE IN 

* A 1 ) ) 

1013 

READ INPUT TAPE I N * 1013 » ( BREQ (I) » I = 1 
FORMAT (19X.A3. 5 AA ) 

, 6 ) 

C • • • • 

READ IN MIN. AND MAX. VALUES FOR Y 
READ INPUT TAPE I N , 1 05 0 , YM IN iMiUl£ 

G.ISWG.KRAN 


1050 FORMAT ( 2E 10.4 * I 2 *2 1 1 ) 
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5b. Printed Plot Routine - Source Statements (Continued) 

r r f ad in arid rangfs — 

READ INPUT TAPE IN.1051 , < XGRD ( I ) , 1=1 , IPG ) 

_105X tLQ&MAlJt 6 F 1 0 . <t.) 

C WRITE OUT CONTROL CARD 

_ £ LEST IF I GRP AR RAY IS FO R...CQMRL EXE RANJoE. HR_. .LE_EAEH_E AXR_..LS__A. JLANGJL 

IF(KRAN) 501,500*501 

. 5Q1._ _J REG . = 1 RG - - - 

IPG = 2 , 

. _Sil U write OUTPUT TAPE- I 0 1 1 u 0 1 »— I Q P .vJ.U J. J i I E . L U ., LL U ll j .l F . U ) lA . GiJ) , J 

1 =2,6) 

1 00 X X QKiMAL (.1 H.1 6X,.2 5JdDAlA _EL 0 H..RLG J2G.T «_0PI1QN,I2 ,28“ X VAR,. 

1 FIELD IS , A 1 * I 2 * 56H • Y VARIABLE FIELDS WITH PLOTTING CHAR 

1ACIEBS ARE,X.7X.,31A1.,J2.,AIj23XJ X. 

AREQ(l) = BLK. 

AREQX2 1 — 5 — .HLX 

AREQ ( 3 ) = BLK 

C . DETERMINE IF DATA. TAPE 10 READ IS J3.9..0R £2. - 

I F ( I OP - 1 ) 51,50,51 

50 I DT = I P - - — - - — ■ 

GO TO 52 

C READ FIRST CONTROL RECORD FROM DATA TAPE 

52 READ TAPE IDT, IFL, LCD - - 

C TEST IF ADDITIONAL CYCLE RANGE CARD EXISTS 

IF ( ICD139 ) ) . 53,54,53. - - - - 

53 READ TAPE IDT, ( I RAN ( I ) , I = 1 , 1 8 ) 

,. WR I TE. CONTROL . IMOt_'JD„OJJTR.UT J1ARE 

5A CALL CCARDI I CD, IRAN) 

C RETRIEVED TAPE. WITH L.S.F.IS AN ERROR REQUEST 

IF (IFL - I FLR ) 300,55,300 

55 I F ( ICD (181-1)57,56,47 

C CANNOT PROCESS THIS T APF 

56 . ..WRITE OUTPUT ..TAPE 10,1.002.. - 

1002 FOR.'-.AT (73HG1NPUT DATA TAPE IS OUT CARD LEAST SO. WITHOUT PSEUDO FI 

1LI.DS. CANNOT PLOT.) . .. - 

68 REWIND IDT 

PAUSE -■ 

GO TO lu 

300 IF ( IFL - I F LP ) 30 1,57 ,301 

301 PRINT 1 20 

102 0 FORMAT < S7H INPUT TAPE IS . NOT A. RETRIEVED OR PSEUDO TAPE. SCRAP R 

1HN ) 

GO TO 68 . . 

C DETERMINE WHAT INFORMATION IS AVAILABLE ON IDT 

37. IF ( I CD (41 )) 5.9, .68, 59 ... , 

5 8 J = 7-i 

GO TO 6U . . - 

69 J = 2 1 

60 JJ =0 .... 

IF ( I CD ( J ) ) 61 ,64,61 

61 . ...DO .63 ..1.3 J,. 2 8. ..... 

IF ( ICD( I ) ) 62,71,62 

62 JJ = JJ +1 _ . . . 

63 IFLP(JJ) = ICD(I) 

GO TO 71 

C PFTER-'.INE IE f NDCARD OR OUTCARD 

6 /, I E ( I C ! ■ ( 1 ) ) 66,66,66 _ 

66 JJ =26 
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5b. Printed Plot Routine - Source Statements (Continued) 


00 TO 67 

6 6 jj - : r 

6 7 DO 70 1=1 .JJ • 

r iFLL-m = i 

C UE T I -ii: IF I: T I* L.S TYPE 

71 LL =1 
LX 

1 F ( ICI.M 13 )-!) V" 3 , 72,73 

72 Ll. = 6 
LX = 1 

. C DOES LATA TAPE CONTAIN pseudo fields .. . 

73 I F ( I FL - IFLP) S3 ,75,83 

C HEAD H LEU DC EuUAT ILF'S 

75 A FA,.- TAPE ID To It ( I CAK!> ( < ) ,K= 1 ♦ I) 

- -C ’..'RITE OUT PdLldO FLOAT LOH CARDS . . _ 

:-:H I i i i.-LIL.T f,,!'< !<;•♦ l f H3, ( ICARL ( M ,K=1 , I ) 

. 10 J3 FORMAT (25HC PStODO LuUAI ION CARDS / / (.1 X * 1 2 flb ) ) 

C RF AD ONE RECORD FRO.- IuT AW* SET UP PSEUDO FIELD TABLE (I PELL) 

. .. READ TAPE IDT, 1 1 » 1CMT » I DAT * I L'UF ( I ) , I =1 » I CNT.) 

I A AV = IP AT 

—LSAV1 =. XAESF(IlJU) _ ... 

BACKSPACE IDT 

... C CALCULATE LOCATIONS OF PSEUDOS 

NLOC = ( J J * LL) + LX + 2 

. C .GENERATE A. TABLE OF CALCULATED PSEUDOS 

JP = 0 

DO- 80 -I = 1-,-ld - .. 

I F ( BUF (NLOC ) - 1.F36) 81,82,81 

- SI .. JP = JP+1 

IPFLD(JP) = I 

— 8.2 . NLQC. = MLOC +1 .. ........ 

80 CONTINUE 

...GO .I.0...8.A. . . ... 

83 JP =0 

— 8.4.... JJ_A= U .. 

JJ8 = 3 

JLLC_= 0 

JJN = 0 

JPO = 0 
J JF = 0 

94 7=1+1 

1E1..1.I.L1.) -ISLE,) 2ILU.01.i2X. 

90 IF(ITII) -KF) 95.91,95 

20 LE-Lxauia.). -JJ-. .. 83 _l 2 G ,.8X 

85 DO 93 J=1,JJ 

LE — LLELLU = LFJJ2.LJ 1 J .2 3 »_22_i_21 ... 

92 JJF = JJF +1 

I£fI UJF) = L E JJLLXi 

I F C 18) 87 ,86, 87 

8 h 18 = 1 , 

GO TO 94 

8 1 JOE = JJB +1 - 

JJC = JJC +1 

ASYM ( JJC ) = A S ( T ) 

AR EQ ( J JB ) = BREQI I ) 
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5b. Printed Plot Routine - Source Statements (Continued) 

GO T.C 94 - 

93 CONTINUE 

NFFT(JJN) = IF (I) 

GO TO 94 .. --- 

95 IF(JP) 98 , 100 *98 

98 DO 99 J = l » JP _ ... 

IF ( I F ( I ) - IPFLD(J)) 99,97,99 

'iFPFTtJPF) = IPFLD(J) 

... I F ( 13). . 89,88,8 9 — - 

88 18 =1 

GO TO 94 ... — - - 

39 J J A = JJA+1 

AS.Y I JJAJ — 5 — A5-L1.1 

ARE ( J J A ) = BKEU(I) 

GO TO 94 - -- - 

99 CONTINUE 

1.0 Q JPO = JPO. +1 - - - 

NFFU ( JPO ) = IFtl) 

~C ADD ASY AND ARE ARRAYS TO ASYM AND AREO ARRAYS 

. ...l.Cl... IFiJJAI. 103,108,1.02 - - 

103 DO 104 I =1, JJA 

JJ8 = JJH.+ l . 

JJC = JJC +1 

YJJ x 

AREOIJJBJ = ARE ( I ) 

104. ..CONTINUE. _. . ...... . 

C ARE WE SWITCHING X»Y* COORID1 NATES 

C CALCULATE THE NO. OF. CHAR.. FOR ORDINATE LABEL. IN PLOT. 4 

108 IF(ISWG) 120,109,120 

12..Q 

NCHAR=54 

GO. TO. 102.. _... ..... 

109 NCHAR= J JB * 6 

C LIST THOSE FIELDS NOT FOUND 

102 IF (JJN) 105,106,105 

105 Will T !L_0 UT P u T TAPE 10,1004, ( NFFT ( I ) , I = 1 , J JN ) 

1004 FORMAT'*! 63H0 THE FOLLOWING FIELDS WERE NOT FOUND ON THE INPUT DATA 

1 TAPE.../ 614 ) — 

C LIST THOSE PSEUDOS NOT FOUND 

106 I F ( JPO I 107,110,107 

107 WRITE OUTPUT TAPE 10, 1005, ( NFFU ( I ) , I = 1 , JPO ) 

1005 FORMA T (70H0 THE FOLLOWING PSEUDO FIELDS WERE NOT FOUND ON THE IH E. 
1UT DATA TAPE.../ 614) 

Lx CAN AN Y QA.TA.ilE_ PR OCESSED 

110 JJZ = JJF + JPF 

IF(JJ Z-l) 1. 11 , 11 1 ,112 

C NO DATA CAN BE PROCESSED 

111 WRITE OUTPUT TAPE 10,1006 

1006 FORMAT (43H0 DATA CANNOT BE PROCESSED. RUN TERMINATED.) 

GO T O 68 

C CHECK TO SEE IF INDEPENDENT VARIABLE X WAS FOUND ON IDT 

112 I F( I T ( 1 T KF ) 115,113,115 . _ 

113 IF (Tf'- IFFTT 114.116,114 

114 WRITE OUTPUT TAPE 10, 1007 

I 1007 FORMAT ( 56H0 INDEPENDENT VARIABLE CANNOT BE LOCATED. RUN TERMINATE 


5b. Printed Plot Routine - Source Statements (Continued) 

LEU 

GO TO 68 

-LOS IF.. U.F — — LEBEU. .1 1 U .,1L6 . 1,14 . 

C SETUP AN ARRAY CONTAINING THE LOCATIONS ON TAPE OF EACH FIELD 

-C REQUESTED-. , 

116 LL = 1 

-LX=-Q _ 

ILL =0 

—C WER.E... E I E, I, PS REQUESTED 

IF (JJF) 130*140.130 

-lSD LF--C4T - KF ) 135.132.1SS _ 

135 ILL = 1 

-122 DO 134 -I s I.JJE 

ICNT = 0 

pq..l3J i = l . .i.i 

ICNT = ICNT +1 

LEUEETI 14— =— I.EULI .11 ) . 1 31 031411 _.. 

133 ILL = ILL +1 

1.LQC11LL1 = ICMI , 

GO TO 134 

— ID-3 GQJMJ. INI.IE 

134 CONTINUE 

--C P-SEUDO F-I ELDS— REQUESTED _ _ 

I F ( JPF ) 143.150.143 

- 14.0 LU_=J- 

C SETUP LOCATIONS FOR PSEUDO FIELDS IN ARRAY I LOC 

1 A2. IFliriMlRI-l) 147.141.14? _ 

141 LL = 5 

142 LOCP = JJ * LL + LX 

I F t IT-KF >127.126.127 ~ 

— L 22 1LQ£_.= Lf-EEJL_t.EQ.CE 

I F ( JPF -1 ) 150,150,128 

-..-1.28. ,J = 2 . 

126 DO 145 I = J » JPF 

IJJ 5.-ILL. +1 

I LOC 1 ILL) = I FPFT ( I ) + LOCP 

—123. .COJELIN.UE 

C COMPUTE FIRST RANGE 

1.50 -I.LIM. = I C D ( 14 1 + I CD ( 15J * IICDil6)-l) _ _ 

C 

. 146 . LP = ...u_ 

IFUFL - IFLP) 129, 147, 129 

1 2 9~ ' T GET = 0 

.. KK = ...0 

R = PLOT1 (NSCALE.NML .NSBH.NVL .NSBV) 

J.EERJ L4.9 .» .1 45 a .6.8 

149 II = -j 

....,1.4.8 1 ELLLU215 j HIj-UJL. 

215 12=1 

i.BA.T=.9..9 _ 

GO TO 213 

15 1 READ.. TAPE. IDT , 1 1 , ICNT , 1HAT , ( bUF ( I ) , 1 = 1 , ICNT ! _ 

M=1 

„ C CQMEULE ...IHJEL S-PJLJ, . K tEQ. 

KCYC = ICNT / ( ( JJ * LL ) +1 + LX + LP ) 
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5b. Printed Plot Routine - Source Statements (Continued) 


.. c 

c 

2 - 13 .,,. 

...214 

C 

153 

C 

, C 

136 
. 137 

154 


155 

163 
L 6 4 


168 

170 


174 

176 


179 

18.0 


c; 

19 o 

c 

c 

c 

2 00 
202 


2 ''7.. 
2 0 6 
20 1 


.... EXTRACT DATA TO .PLOT AND -STORE SEPARATE ARRAYS. . 
HAVE WE CHANGER' HATTERYS 

.. m,-2S3,-I.-l*lXY-C 

I F ( ISAV-IBAT) 200*2 14* 200 

I.F.t I CD ) 1.53 * 136 * 153 . - 

ARE WE IN THE SAME CYCLE RANGE ( ENDCARU ) 

IF(XA&SF( IEUtM) l-ILIMJ ,154*154*200 . 

ARE W E IN THE SAME CYCLE (OUT CARD) 

.. CHECK. LEAST .Su*.., FIT - - ... 

1 F ( I C 0 ( 1 8 ) - 1 ) 137 >153*137 

IF.l.XAMSF ( I r-'U(M )..)-! SA_V1) .200*154*200- . 

I GET = 1 
KK = KK +1 
J = 1 

. J.AD = ILQC(J) +. T .. - - 

XI ( KK ) = HUE ( 1 AO ) 

J = J + l 

1 AL) = I LOC ( J ) + (v 

Y 1 ( KK ) =L>UF { 1 AD ) 

IF (J - ILL) 164*150 * 1 64 

J = J + l - ■ ■ 

I A |J = I L 0 C ( J ) + f- 

Y 2 ( K K ) = hUF ( I mD ) 

I F ( J - ILL) 1 70 * 1 90 * 1 7o 
. J = J + I 

I AD= I LOC ( J ) + M 

. Y 3 ( KK ) = 3U F ( I AQJ .... - 

I F ( J - ILL) 175 * 190,175 
J = J+l 

I A I > = I LOC ( J ) + W 

Y4 ( KK ) = OUE. UAO) 

IF ( J - ILL) 180*160, 180 

J = J + 1 ....... 

I A D = I L 0 C ( J ) + !• 

Y5 ( KK ) = DUE (1 Ml;) 

COMPUTE SUBSCRIPT FOR NEXT CYCLE 

0 - y + {JJ * LI.) +1 + LX + LP 
GO TO 250 

X AND Y ARRAYS ARE SETUP FOR A COMPLETE KAN Cl: IE 

COMPLETE CYCLE IF OUTCARU . 

SORT X ARRAY AND REORDER Y ARRAYS 
CHECK TO SHE IF ANY C.YCLLS V,ER1 EXTRACTED 
IF ( I GIT) 202*240*202 
uKl = KK -1 

DO 205 LI = 1 .*. JKK.l 

L4 = - 

X X 1 = X 1 ( L 1 ) 

L 2 = LI +1 

DO 2C6 L. 3 = L2*KK 
IF { X 1 ( L 3 ) - XXI) 2 r 7 , 2 n 6 * ? ° 6 
. LA = L 

XXI = x 1 ( L 3 ) 

C. 0 ' ■; T IK HE 

1 F ( l 4 > 2 'i l ,? '5 *20 1 

J = 2 

XI (LA) = X 1 ( L 1 ) 

Xl(l.i) = XXI 

XXI = Y 1 { L A ) 
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5b. Printed Plot Routine - Source Statements (Continued) 

Y 1 ( L4 ) = Y1(L1) .. . . 

Y1 <L1 ) = XXI 

IF< J - ILL) 208.205.208 - 

20P J = J+l 

XXI = Y2(L4) 

Y2 < L4) = Y2 ( LI ) 

Y2 (LI ) = XXI 

IF (J - ILL) 209 . 205 .209 

209 ■ J = J+l - - - 

XXI = Y3(L4) 

- Y 3 ( L 4 ) = Y3(L1> 

Y 3 ( L 1 ) = XXI 

IF (J - ILL.). 210.205 .210 . 

21C J = J+l 

-.XXI = Y 4 ( L4 ) .... .... — .. 

Y4 ( L4 ) = Y 4 (LI ) 

Y 4 ( L 1 ) = XXI 

IF ( J - ILL ) 21 1 ,205 ,211 
2.11. XXI = Y5 <L4) .. . 

Y5 ( L4 ) = Y 3 (LI ) 

. Y5 (L1)...= ..XX1. _ _ 

205 CONTINUE 

2C4 ..KK5 = 1 

I CRN = I CRN+ 1 

.. 1 END ..=. o . 

DO 254 K = KK9.IPG.2 

...X.._, . PRINT HEADING_AT.-THE.IQP OF. EACH PLOT 

IF ( I CD ( 18 )-l ) 212,227,212 
.212 I F t I CD ) 227,228,227 
227 WRITE OUTPUT TAPE 10 , 1U08 , ISAV , I CRN 

1008 .FORMAT ( 1H 1 45X , 7H BATTERY , 1 4 , 12H CYCLE RANGE *13//.) .. 

GO TO 405 

...223.. WRITE OUTPUT,. TAPE I.O., .100.9 *.ISAV> I SAVi 

1009 FORMAT < II I145X , 7HL5A.T TEkY , 1 4, 6H 'CYCLE , I 5// ) 

j AOS. .KZER =0 ..... 

i IF(ISWG) 451,450,451 

.43.0 K = PL.OT 21 IMAGE *XGR.D ( K + l ) , XGRD.T < ) , YHAX ».YM I N ) .. . 

I F ( R ) 406 ,406,6 8 

. — 4.5.1 K=PE.OI 2 ! I (•’. AGE » XMAX., j X.GRD 1 K+l LaXGRD ( K. 11 . 

I NO 1 =KK 

452 . IF (R ) 411 ,4.1.1,68 

406 DO 410 J=KK5»KK 

IF (XI ( J) - .XGRD(K + 1)) 408,408,409 

409 INOi = J - KK5 

! ’ KK 5 = "j 

408 KZER = 1 

; 4lLQ .CONTI NU E 

i I END = 1 

i IN Ql = KK - K.A5 +1 

IMAX1 = KK5 

... ..C CHE CK TO SEE IF ANY V.ALUES.. V.’ERE FOUND IN . CU.RRENI. RA NGE, ...CHARGE 

415 I F ( KZER ) 411,226,411 

IF(ISWG) 454,453,454 

4^2 K = PL0T3(AJYM(J) , X 1 ( I MAX 1 ) >Y1( I MAXI ) , I N01 ) 

; GO TO 455 
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5b. Printed Plot Routine - Source Statements (Continued) 


45.4.- i<=PL.0T3I ASYKU) » Y 1 »X 1 * l.-iuLJ 

455 I F ( R ) 2 32.233.68 

GO TO 270 

.233 . IF ( JJC-J ) 222,226.222 

222 J = J+l 

I F ( I S V'.'G ) 457.456.437 ... ... ....... 

4 56 k=PL0T3 ( ASY.w ( J ) , X 1 ( I riAXl ) , Y2 ( I MAXI ) , I NO 1 ) 

457 k= PLOT 3 ( A5YH ( J ) .Y2.X1 , 1N01 ) 

458 I F ( R ) 234,235.68 .. - - 

234 L50 = 2 
GO TO 2 70 

235 IF ( J JC -J) 223.226,223 

I F ( I SWG ) 460 ,459, 46 u 

459 l< = PL0T3 ( ASY" ( J ) , X 1 ( IHAX1I »Y3( I MAXI) , IN01 ) 

GO TO 461 

46 : ‘ K = PLOT 3 ( ASY , ( J ) » Y 3 , X 1 » I NO 1 ) 

461 I F ( R ) 236,237,68 

. . 236 L5CI =3 . ...... 

GO TO 270 

237 IFIJJC -J.) 224,226,224 
224 J = J+l 

IF( ISrt'G.) 463,462,463 

462 ,<=PLOT3 ( ASY'/ ( J ) , X 1 ( I MAX 1 ) , Y4 ( L-AXl ) , INOl ) 

.. GO TO. 464 

46 3 K = PLOT 3 ( ASY:'i ( J ) , Y4 , X 1 , I NO 1 ) 

464 I F ( R ) 238,239,68 

238 L50 = 4 

GO TO 270 

234 IFIJJC -J) 225,226,225 

.. 223 . -J = J+l - 

IF(ISV.'G) 466,465,466 

46 5 k= PLOT 3 ( ASY,-. ( J ) ,X 1 ( I .- AX 1 ) , Y5 ( IimaX 1 ) , INOl ) 

GO TO 467 

4 66 J;< = PLO 1 3 ( A S Yi ! ( J ) , Y 5 , X 1 , 1 NO 1 ) 

467 I F ( K ) 251,226,68 

.. 251 L 5 0 .= ..5 . .... ... . .. - . - 

GO TO 2 7 C 

226 IF (I SVG) 469,468,469 

468 K = PLOT 4 ( NCHAR » ARF0 ) 

GO TO 47 0 . . ... 

469 R = PLOT 4 ( NCHAR , GSYM ) 

470 IF (R ) 25.3, 253,68 .... ... ... ... 

C ~ " VaR I TE OUT FIELD HEADING FOR 1NDEPI..NDENT VARIABLE 
.253 IF(.ISa'G) 471,472,471 

472 WRITE OUTPUT TAPE I O , 101 1 , bP.EU l 1 ) 

10 11 FORMAT ( 1 HO » 40X » 34hTHE ..X. . VAR. I ABLE FIELD IS *A3) 

GO TO 473 

... 4 7 1_ . .. .;■! !U IE. ..QUXR.UI . T AP E._.1 0 J,1 Q5JL* lAliE V. < J 4s U 

1052 FORMAT ( 1H0,25X,8A6) 

473 I F ( I END ) 240,254,240 

270 VPITF OUTPUT TAPF 10,1012, ASYM(J) 

1012 FORMAT ( 6X » 44HPLOT 3 FAILED TO PLOT ALL POINTS FOR SYMBOL ,A1) 

GO TO (233,235,237,239,226) ,L50 

254 CONTINUE _ _ , 

C * ALL "PLOT S F OR T\ C YCL L OR RANGE ARE - COf-iPLE T ED • SETUP FOR NLx’T SET 
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5b. Printed Plot Routine - Source Statements (Continued) 

C HAS BATTERY CHANGED - .. 

2 AO IF (12) 260*244*260 

.. 24V . . I F ( ISAV-IbAT) 241*242*241— 

2A1 ISAV = I BAT 

. ICRN=J 

J8 = 19 

242 IGET =0 . - . - 

KK = 0 

, C ENOCARO OR OUT CARD. ~ - - - _ — 

I F C T CD ) 243,248,243 

- C ENDCARD -- - - - 

C ARE THERE ADDITIONAL RANGES 

.243. JFUCD.C3.9n ..245 .214., 245 _ . . - - — 

C ARE ALL RANGES COMPLETE 

-. .245.- LEX I-R AN-L-JS.-l -) — 2-4 6 *.2 42*2 .4-6. . 

C NO. SETUP NEXT RANGE 

. 246.. J.LJM s. . IRANI J8J + IRAMJ8 + 1) * ( 1 RAN ( J8 i 2.) . -.1) .. - 

J8 = J8+3 

IE.(KRAN) 502 *2 1 A ♦ 502 - - . - - - 

502 IF (IPG - I PGG ) 505 » 50A , 5CA 

.._5D4 JART-TE. .jQULP-UI. TAPE- -12*1054 - .._ 

10 5 A FORMAT ( 1H1 , 10X »66HRUN TERMINATED. TAPE RANGES FXCEED INPUT RANGES 

...... . . 1. ON CONTROL CARD 3 ) ... . . - - - - - 

GO TO 68 

. —505.- . XJC 9 = JCK.9. +2 . ... ... - 

IPG = IPG +2 

C ' SETUP UP FI ESTRANGE 

24.7. 1LIK .= ICD(IA) + I CD (15 1 *_ .( 1 CD ( 16 ) - 1 ). - - 

J8 = 1 

IF(KRAN) 502,214,503 _ 

503 IPG = 2 

GO TO 2 1 A 

...2A8 LF ( I C D ( 18 )- 1J.. 24.9., 243 » 24.9 ... 

249 I S A V 1 = X ABSE l I LiU ( M ) ) 

. GO TO 21 A — — 

250 CONTINUE 

C TAPE COMPLETELY PROCESSED 

... 2.60 REWIND IDT _ . 

WRITE OUTPUT TAPE 10* 1010 

101Q ....FORMAT (1H1 , 1..C.X ,22HP LOT REDDEST COMPLEIED). 

PRINT 1053 

ID .5 3. . .. fDBMI... L.32.U., . _£UStLDI ARI. .T.ILD.Q2iXIDlU£.. •<lT.ti_21£XJ. JiUtU 

PAUSF 

.....G2.. TO 10 ... 

END 

EOF E SY 
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5b. Printed Plot Routine - Source Statements (Continued) 


SLOG 002292 

* PAUSE 

* . SYMBOL TABLE - 

* LIST8 

* CARDS COLUMN 

* FORMAP 

* LABEL 
CCCARD 

. SUBROUTINE CCARDUCa.IRNGX 

D I MENS I ON I CD ( A3 ) > I BAT (15),IFILLD(30)*I RNG ( 19 ) 
10 = 3 
I RNG (19) =0 

Kl = 0 . - 

UO 23 1= 2*13 

IF U£0IU.)..24*2.1»2A - 

24 K>1 = K 1 +1 

I BAT ( K.1 ) = 1-2. 

23 CONTINUE 

C.... LOCATE FIELDS REQUESTED 

K2 =0 

-.LF.( I.CD.1 42.113 -iA».3. — 

3 111=21 

GO TO 5 . . . 

4 I I 1=20 

5 ...DO .33 I = I 1 1 .36 . . 

I F ( I CD ( I ) ) 31*32*31 

.31 ts2-_=_ iC2.. ±1 .... - 

I F I ELD ( K.2 ) = I CD ( I ) 

33 CONTINUE. 

32 I F ( K2 ) 40,38*40 

C.... ALL. FIELDS ARE TO BE SELECTED 

38 IF ( I CD ( 1 ) ) 35,34,38 

C * » « OUT CARD .... — , — 

34 J= 1 5 

GO TO 36 ..... 

C • • • • LNDC AND 

3 6 J = 26 . . _ ... . 

36 DO 37 K2 =1* J 

IF1ELH.K2 ).=. KZ ...... 

37 CONTINUE 

40 I C YC, = I CD ( 14) . _ 

If ( I C D ( 1 ) ) 42*41,42 

41 UR I T E, .OUTPUT I APE. .10, .917 

GO TO 43 

42 . UR1.T.E. ..OgXRiLT TAP E 10, . 9 .16 

43 WRITE OUTPUT TAPF 10, 903 , ( I BAT ( I > , I = 1 »K1 ) 

UR I IE DU T PUT... .TAPE I0.» 904,...1CYC 

WRITE OUTPUT TAPE IU, 905 * I C D ( 1 5 ) , I CD ( 1 6 ) 

. . I F..(. I CU.M 7.1 ) .. ...45..* 4.4. * 4.5. ... 

44 WRITL OUTPUT TAPF 10* 906 

GO.. .LQ.J*6. 

4 5 I F U C D ( 1 7 ) - 2 ) 511*610,511 

61 .JR I T E. OUTPU T T APE .10* 949 

GO TO 46 

511 WRITE. OUTPUT TAPE 10,907 

46 IF ( I CD ( 1 ) ) 54,47,54 

4.7 IF. (I C LT( IB) - 1 ) 49 ,48, 49 

48 WRITE OUTPUT TAPE 10, 908 

GO TO 54 ..._ ...... 

49 IF ( I C 0 ( 18) ) 51,60,51 

60 W R I. T E . OUT PUT ,. TAPE _ 10 , 911 

oO 1 U 54 

51 IF ( I CD ( 18) - 2 ) 53,62,53 
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5b. Printed Plot Routine - Source Statements (Continued) 

52 WRITE! OUTPUT TAPE IG, 909, ICD119) 

.GO To 5.4 

53 WRITE OUTPUT TAPE 10,910, ICDI19) 

54 I F Cl CD ( 2 C ) ) 56 j 55 *56 ._ ..... 

55 WRITE OUTPUT TAPE 10, 918 

56 WRITE OUTPUT TAPE 10, 9 12*, (7f I ELdTiTTi =77)12 ) 

5.7 LE.UCU.C41..).) 5 3,59,58 

38 WRITE OUTPUT TAPE 10, 913 

59 IF ( I CD ( 42 )..) 60,61*60 ... . _ 

60 WRITE OUTPUT TAPE 1 0 ,914 , I CD l 20 ) 

6 1 V,R I.T.E ..OUTPUT .JaEJL J£L*2iif. I^.LEH 

IF ( I CD ( 40 ) ) 63,62,63 


63.. !.=1 _ -1 

ICR = 2 ' T 

64 WRITE OUTPUT ..TAPE, I 0..,...9 5.5j>_LC.S , I RMG ( I ) , 1 RNG ( I + l ) , I RNG ( I +2 ) 1 

I = 1 + 3 " 1 

1CR._=._I£R + ] 

I F ( I RNG ( I ) ) 64,62,64 

62 RETURN ... _ i 


903 FORMAT < lHu5X , 23HDAT TERYS REQUESTED ARE 1214) 

,904 . FORMAT... ( bX , 21HST.ART.ING. CYCLE NO. 1 5. 14.) 

905 FORMAT ( 6X , 13HINCKb.i-it.NT 13 I 3 ,22il NUMBER OF INCREMENTS 14) 

...9 06 FORMAT 1 6X , 12HCHARGE PHASE) 

907 FORMAT < 6X , 13HD ISCHARGE PHASE)* * * 

,9.08 FORMAT. (6X,36HLEAST SQU ARE FIT ON KEiJ.UESTED Jr'J ELDS ) _ 

909 FORMAT <6X,6HFIR5T 12 *27H PERCENT OF CYCLE REQUESTED) 

.9.1.0 FORMAT . .( 6X , 3HLAST .12 ,27H PERCENT OF CYCLE. REQUESTED) 

911 FORMAT ( 6X~ , 3 1H ICO PER CENT OF CYCLE REQUESTED ) 

— 212 F.qrm„AJ._.( 6.1L»JAttEI£iJ2S_fi£ilUE.5 I£mi 

913 FORMAT ( 6X , 22H I NVAL I D DATA REQUESTED) 

. 9.1.4. ... FORMAT (6X , 35HCELL„CYCLt_KEOUfcST ON OUTCARD FIELDI5) 

915 FORMAT ( 6X , 1 1HLXPI RED DAY 14) " 

916 FORMAT ( 6X , 2_2HE_NDCAKD DATA KEUULSTtD ) 

917 FORMAT ( 6X", 22HODT CARD* DATA REQUESTED)’" 

918 FORMAT ( 6X,20HALL F IELDS R EQU ESTE D) . 

949 FORMAT ~< 6X , 26HCHARGE "AND DISCHARGE PHASE)" 

. 9.5 5 FORMAT ( 1H06X , 1 1HCYCLE RANGE I 2 , 16H_ STARTING CYCLE I 5 , 1.1 H INCRLKEN 1 

1TI5.22H NUMBER OF I NCREMENT S 1 5 ) ” " ~ 1 

END. 

~ " * ’ " EOF E SY 
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